按类别查询搜索结果
关于关键词 的检测结果,共 260
runningdark | 2013-03-18 15:56:45 | 阅读(2210) | 评论(0)
前几天被问了perl的继承,因为太长时间没有用过,连面向对象具体怎么写的都记得不是十分清楚了。这里记录一下。KeyPoint:1.使用hash存储类的各个成员field。2.hash新建的时候是一个匿名hash的引用。3.bless($self,$class)是将该类和匿名hash $self绑定,类名可以忽略。4.bless的是引用不是hash。5.继承相当于往父类的...【阅读全文】
kk861123 | 2013-03-15 23:32:03 | 阅读(0) | 评论(0)
递归算法在实际生活中大量被使用,很多问题可以很巧妙的被解决掉。例1: 楼梯有n个台阶,上楼可以一步上1阶,也可以一步上2阶,一共有多少种上楼的方法?斐波那契数列  第一项为1 第二项为2 也就是f(n)=f(n-1)+f(n-2),用递归求。#!/usr/bin/perl -wuse strict;print...【阅读全文】
db7we63085sd | 2013-03-15 10:28:03 | 阅读(140) | 评论(0)
??   我从未写过影评,我也不知道怎么评价电影的好坏,我这段评论的出发点是历史。我很喜欢陆川的这部电影,确实,它给了我一点意外,叙述手法和拍摄手法跟我预想的不一样,但是,他是尊重历史的,可以说有百分之八十至九十是符合历史的。然而,陆川他想用短短的两个小时讲述从反秦起义到刘邦死这段不算很长时间但内容太...【阅读全文】
maodou888 | 2013-03-14 11:39:53 | 阅读(1620) | 评论(0)
perl SMTP发送邮件#!/usr/bin/perluse strict;use Net::SMTP;use Authen::SASL;        my $data;        my $NUM=0;        my $mail_name;my $name;my $mail;    my $...【阅读全文】
BuTa丶潇 | 2013-03-13 15:41:52 | 阅读(1270) | 评论(0)
在unix/Linux中有一个强大的命令用来搜索文件中的模式,相信大家都比较熟悉,那就是grep,同样在perl中,grep也被用来进行搜索某个模式。下面我们来看一下grep的一个例子:#! /usr/bin/perluse strict;use warnings;my @array = qw(greyhound bloodhound hello hand);my @hound = grep /hound/,@array;print ...【阅读全文】
zhengsenlin888 | 2013-03-13 11:18:59 | 阅读(1950) | 评论(0)
#!/usr/bin/perl#author: zhengsenlin#date: 2013-03-13#desc: time piece use 5.016;use strict;use warnings;use autodie;use Time::Piece;my $t = localtime(1360780381);my $real_time =  $t->ymd . " " . $t->hms;say $real_time;【阅读全文】
BuTa丶潇 | 2013-03-11 11:35:19 | 阅读(1340) | 评论(0)
飞碟运算符就是对比$a和$b,返回-1、0、1$a$b返回1如:点击(此处)折叠或打开my @array = qw/18 23 62 11 14 6 100/; print join(' ', sort { $a $b } @array), "\n";#这个得到的是6 11 14 18 23 62 100print join(' ', sort { $b ...【阅读全文】
BuTa丶潇 | 2013-03-11 10:56:52 | 阅读(1060) | 评论(0)
一) sort函数sort LISTsort BLOCK LISTsort SUBNAME LISTsort的用法有如上3种形式。它对LIST进行排序,并返回排序后的列表。假如忽略了SUBNAME或BLOCK,sort按标准字串比较顺序来进行(例如ASCII顺序)。如果指定了SUBNAME,它实际上是个子函数的名字,该子函数对比2个列表元素,并返回一个小于,等于,或大于0的整...【阅读全文】
BuTa丶潇 | 2013-03-11 10:55:03 | 阅读(1420) | 评论(0)
点击(此处)折叠或打开#!/usr/bin/perl use strict;use warnings;my $str1 ="aab12345678";my $str2 = "ab1234yb1234567";my $str = $str1 . "\n" . $str2;my (@substr,@result);...【阅读全文】
runningdark | 2013-03-08 16:00:40 | 阅读(1520) | 评论(0)
题目大意:有一个数组存储了多个顾客的购物清单。指定一个物品item1,求出购买了item1的顾客除了购买item1外,购买最多的物品。很实用的小题目。电商网站市场能看到。来源http://blog.chinaunix.net/uid-26750075-id-3370694.html 分析:简单的图论题目。首先把数组转成图的邻接表表示。实际就是求出到指定顶...【阅读全文】
zhengsenlin888 | 2013-03-02 19:22:49 | 阅读(1960) | 评论(0)
直接贴出代码:点击(此处)折叠或打开my @numbers = qw(1 100 50 6 70 555 66 70 80 99 1 20 3);my @odd_digit_sum = grep {    my $sum;    $sum += $_ for split //;...【阅读全文】
ewayfly | 2013-02-28 22:17:05 | 阅读(1910) | 评论(0)
在使用 Gearman 做分布式处理时,各机需要注册一个独立的 job 作为信息反馈,为求方便,Gearman::Worker 脚本 register_function 代码又要通用,于是想到了使用各自的 ip 地址作为 job 命名。那么怎么在 worker 脚本里获取本机 ip 作为 func 呢?第一种办法,最简单的,调用 shell: $ip = `ifconfig eth0|grep -...【阅读全文】
zhengsenlin888 | 2013-01-30 22:37:56 | 阅读(2120) | 评论(0)
#!/usr/bin/perl#author: zhengsenlin#date: 2013-01-30#desc: test program fiveuse strict;use warnings;@ARGV = qw(a);while () {print;}【阅读全文】
zhengsenlin888 | 2013-01-30 22:28:11 | 阅读(1190) | 评论(0)
(一)单行注释: 以#开头的行都被perl认为是注释。但是有一个例外,perl程序的第一行是#开头的,他指定了perl程序的解释器。例如:#print 1; (二)多行注释:最常用的方法是使用 POD(Plain Old Documentations) 来进行多行注释。方法如下:=podcodes to co...【阅读全文】
wsxedcer | 2012-12-14 16:12:40 | 阅读(1227) | 评论(0)
采用 SMTP_auth 模块发送从mysql中取出的访问量。

#!/bin/env perl
use DBI;
use POSIX;
use Net::SMTP_auth;
use MIME::Base64;
use strict;【阅读全文】
centrify | 2012-08-19 11:32:23 | 阅读(2030) | 评论(0)
#!/usr/bin/perluse strict;use Time::Local;my ($time,$timelc,$sec,$min,$hour,$mday,$mon,$year);$time = "2007-09-27 10:04:08";my @time = reverse(split /-|:|\s|\//,$time);foreach(@time)...【阅读全文】
centrify | 2012-08-12 11:05:12 | 阅读(2576) | 评论(0)
数组变量用@加变量名普通变量用 $加变量名undef没赋值的变量,用于条件判断,代替不关心的值defined已赋值的变量,用于条件判断。数字初值为0,字符串初值为空串如果有undef变量又不知道在哪,可加-w参数进行提示#!/usr/bin/perl -w变量替换用大括号,shell用小括号$ cat...【阅读全文】
写自己的历史 | 2010-03-02 21:44:11 | 阅读(917) | 评论(0)
zlj2208 | 2008-11-28 20:37:22 | 阅读(1465) | 评论(0)
yjh777 | 2008-03-02 02:03:36 | 阅读(1925) | 评论(0)