perl常用代码

loiv

　　字符串联结和重复操作符
  联接: .
  重复：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[0] eq 'a') {
    print("a\n");
}
elsif ( $ARGV[0] 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[3] = undef;
　　print Dumper \@dwarfs;
　　
　　#拆分一个字符串
　　@ARGV_vars = split(/-----/, $str);
　　
　　#查看已经安装的Perl模块
　　find `perl -e ‘print “@INC”‘` -name ‘*.pm’ -print