perl文件遍历匹配打印

#!/usr/bin/perl

例子:

 chomp ($path=`pwd`);去掉换行

 @ls  =`ls`;将当前文件赋给一个变量

 $path1 = $path."/";拼接路径

   print "$path1\n";打印拼接路径

if (-e "$path1."1"") {//检测打印文件是否存在

    print STDERR ("File file1 exists.\n");

    }

foreach (@ls){遍历所有文件

print "$_";打印当前遍历的文件

open(DATA, "<$_") or die "file.txt 文件无法打开, $!";

open(out, ">>out_$_") or die "file.txt 文件无法打开, $!";

while(<DATA>){

  $lines = <DATA>;取出一行放到数组中

  #print "$lines";

 if(($lines =~ /.*Slack.*/)||($lines =~ /Endpoint/)){模式匹配

   print  out $lines;打印匹配的行

 }

          }

close DATA;

close out;

}