perl一些语法

1.执行脚本或命令

  my $Errorlevel = system "test.bat";

  if($Errorlevel!=0) {exit 0;}

2.替换temp.log文件中的"D:\test"为""，并且将原文件保存为.bak文件

  perl -p -i".bak"  -e "s/D:\\test/\\\\192.168.1.1\\test/g"  temp.log

3.读文件

  my $j=0;

  open(FH,'temp.log')||die("error:could not open temp.log\n")

  while(1)

  {

    $line=;

    if(not defined($line))          \\判断是否为最后一行

    (last;)

    chomp($line);                   \\去掉回车

    $j=$j+1;                        \\行数加一

   }

  close(FH);

4.正则表达式和数组的用法

  if($line=~/\/test/)                \\如果$line中包含"\test"，则从"\"将$line划分

  {

   @personal=split(/\\/,$line);

   print $personal[1]."\n";          \\打印数组中的第二个元素

  }

  if($line=~/(?:[^\d*])(\d{6,8})(?:.*)/)  \\如果$line中包含连续的6-8个数字,其中"?:"表示该

                                              段不取

  for each $temp1 (@user){

     if($temp2 eq $temp1)

     push(@user,$temp2);

  }