字符串联结和重复操作符 
  联接: .
  重复：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