perl
Sceyu
这个作者很懒,什么都没留下…
展开
-
关于split
#!/usr/bin/perl$b = "abacadae";@a = split(/(a)/, $b);print "@a/n"; // a b a c a d a e @a = split(/a/, $b);print "@a/n"; // b c d e原创 2011-06-22 15:57:00 · 236 阅读 · 0 评论 -
关于数组返回
#!/usr/bin/perluse strict;use warnings;sub func_array{ my @temp = qw/a b c/; return @temp;}sub func_list{ return qw/a b c/;}my $s = scalar(func_array原创 2011-06-22 15:38:00 · 173 阅读 · 0 评论 -
不熟悉的东西
substrtr///warn原创 2011-06-22 15:50:00 · 204 阅读 · 0 评论 -
关于数组下标
my @a;$#$a; 数组最后一个,相当于-1$#a; 数组长度,相当于scalar @a;原创 2011-06-22 15:55:00 · 361 阅读 · 0 评论 -
perl local my our 的前世今生
原帖地址http://shake863.javaeye.com/blog/189799 Perl中的变量作用范围 local, my, our与全局变量很古老很古老以前......嗯,不用老到白垩纪,那时候的Perl是自由射击的。没有什么定义变量的说法,所有的转载 2011-07-06 07:18:34 · 271 阅读 · 0 评论 -
关于匹配
除去一个变量的首尾空格不能用s//s*(.*?)/s*//要用s/^/s*//;s//s*$//;//s*(.*?)/s*(.*)xxxx/ 相当于 /(.*)xxx/原创 2011-05-14 09:55:00 · 193 阅读 · 0 评论