perl常用代码
字符串联结和重复操作符联接: .
重复：x
联接且赋值(类似+=)： .=
例：
$newstring = "potato" . "head";
$newstring = "t" x 5;
$a = "be";
$a .= "witched"; # $a is now "bewitched"
写文件
open(MF,">/tmp/test.txt");#open(MF,">>/tmp/test.txt");追加
print MF ("hello test");
close(MF);
sleep
#!/usr/bin/perl
use Time::HiRes ('gettimeofday','usleep','sleep');
$i = 0;
while($i <100)
{
usleep(1*50*1000);
print time() . " === " . $i ."\n";
$i++;
}
打印一个数组
#!/usr/bin/perl
@a = ('a','b','c','d');
print $#a;
printf "@a\n";
foreach (@a) {
print "$_\n";
}
print join("\n",@a),"\n";
打印数组长度
print $#a;
判断中的"elsif"而不是"elseif"
if ($ARGV eq 'a') {
print("a\n");
}
elsif ( $ARGV eq 'b' ) {
print("b\n");
}
else{
print("c\n");
}
#dump一个数组
#!/usr/bin/perl
use Data::Dumper qw(Dumper);
my @dwarfs = qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful);
$dwarfs = undef;
print Dumper \@dwarfs;
#拆分一个字符串
@ARGV_vars = split(/-----/, $str);
#查看已经安装的Perl模块
find `perl -e ‘print “@INC”‘` -name ‘*.pm’ -print
页:
[1]