perl记事本

余坚 — Thu, 06 May 2010 06:29:00 GMT

perl记事本

1. 'yu' x 3 # print yuyuyu

2.print "yu jian ${age}s" # 加{} 促使变量不会变成$ages

3. 4 ** 2 #4的平方

4.(1..5) # -->(1,2,3,4,5)

5.qw ( yu jian's book) # 简洁，更少输入

6.($yu,$jian)=($jian,$yu) # 值互换

7.($yu,$jian)=qw(yu jian) # 赋值

8.@array=qw/yu jian/; #数组

9.@array=5..9;

$yu=pop(@array) # $yu=9 and @array=(5,6,7,8)

$yu=pop @array # $yu=8 and @array=(5,6,7)

10.如果数组为空 pop不会报错，什么也不返回，直接返回undef

11.push(@array,0) # @array=(5,6,7,0)

12.pop和push都操作数组末尾

13.shift和unshift是对数组的开始端操作

14.$_ perl的默认变量

for(1...10){

print $_; # $_ = 1 or 2 or 3...

}

15.perl会正确处理上下文

@people=qw{yu gao};

@list=@people #得到列表

$n=@people #得到人数2

16.scalar @array #scalar 导致切换为标量上下文

@array =qw/yu jian gao su/;

print "love is ".@array."\n"; #love is 4

print "love is ",@array,"\n"; #love is yujiangaosu

print "love is ".scalar @array,"\n";#love is 4

17.@lines= #在列表上下文中读取标准输入

18.chomp 去掉所有的换行符 chmop(@lines)

19.调用自定义方法 &methodName;

20.sub max{

if(@_!=2){ #判断参数个数

print "waning!!!"；

return -1;

}

my($m,$n); #创建新的所有变量

($m,$n)=@_; #将参数赋值给变量

if($m > $n){$m}else{$n}

}

21.my($num)=@_ #获取数组的第一个元素

my $num=@_ #数组的数量

22.use strice ; #强制使用一些严格的良好的程序语言规则

23.sub division{

$_[0] / $_[1]; #第一个参数和第二个参数

}

24.@ARGV=qw# file1 file2 #;# 强制让砖石操作符读取这两个文件

while(<>){

chomp;

print "It was $_\n":

}

25.printf "Hello, %s; your password in %d days!\n",$user,$days;#格式化输出

%d 整数 %g 浮点数

27.die处理错误输出

28.读取文件

open CONFIG,"c:/test.txt";

while(){

print $_."\n";

}

29. say == print xxxx ."\n" # say 相当等于print 加换行符

30.hash

$family_name{"fred"}="flint";

$family_name{"bar"} ="rubble";

%family_name("fred","flint","bar","rubble");

my %family_name=(

"fred" => "flint",

"bar" => "rubblle";

)

my @k=keys %family_name;

my @v=values %family_name; #return array

31.

each函数

while( ($key,$value)=each %family_name ){

print "$key => $value\n";

}

exists函数

if(exists $family_name("dino")){

}

delete函数

delete $family{"fred"};

32.\1,\2使用反向引用

$_=""abba;

if(/(.)\1/){#匹配到 bb

print "it matched";

}

33. \d = [0-9]

\w = [A-Za-z0-9_]

[^\d] 非数字

[^\w]非词

[^\s]非空白字符

34./yes/i # /i 不区分大小写

35./s 匹配任意字符，不包括换行

36./x运行加入空白，便于阅读理解

37.m//模式匹配搜索功能

S/// 模式匹配替换功能

/g 全局替换

38.@fields = split /separator/ , $string;

39.my $result = join $glue,@pieces;

my $x = join ":",4,5,6; # $x = "4:5:6";

40.*贪婪 *？非贪婪版本

41.从命令行进行在线编辑

perl -p -w -e "s/ran/ra/g" fred.dat

-p 打印 -n 去掉自动打印 -w 打开警告选项 -e 表示后面更得是代码，而不是普通的参数

42.last 类似break

43.my $stuff="Howdy world!";

my $where=index($stuff,"wor"); # $where = 6

44.my $mineral=substr("Fred J. Flintstone",8,5); # 值为Flint

45.智能匹配对应不同德操作数，不同德处理方式
%a ~~ %b         哈希的键是否一致
%a ~~@b          至少%a中的一个键在列表@b之中
%a ~~ /Fred/     至少一个键匹配给定的模式
%a ~~ 'Fred'      哈希中某一指定键$a{'Fred'} 是否存在
@a ~~ /Fred/     有一个元素匹配给定的模式
@a ~~ 123        至少有一个元素转化为数字后事123

$name ~~ undef $name确实尚未定义

46.system 启动子进程
system "date";

14.my $tarfile="some*.tar";
my @dirs=qw(fred|flinet betty);
system "tar"."cvf",$tarfile,@dirs; 带参数的系统命令调用

47.system的所有语法对exec都适用
执行exec类似goto语句，跳转到另个进程进行执行，当前perl进程会关闭
chdir "/tmp" or die "cannot chdir /tmp: #!";
ecec "bedrock","-o","args1",@ARGV;

48.$ENV{'PATH'}="/home/rootbeer/bin:$ENV{'PATH'}";
delete $ENV{'IFS'};
my $make_result= system "make";
改修改并不能影响shell或者其他父进程

49.my $now =`date`;
print "The time is now $now";
魔力反引号调用进程

50.perl -p -i.old -e "s/try//g" test.txt 替换文件中的内容,重新写入文件，原文件备份为old后缀的文件.
windows下要用双引号

51.

余坚 2010-05-06 14:29 发表评论

BlogJava-小小程序员-随笔分类-脚本语言

perl记事本