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;

#!/usr/bin/perl例子:chomp ($path=`pwd`);去掉换行@ls =`ls`;将当前文件赋给一个变量$path1 = $path."/";拼接路径 print "$path1\n";打印拼接路径if (-e "$path1."1"") {//检测打印文件是否存在 print STDERR ("File file1 exists...
原帖地址:http://yesho.blogbus.com/c1615293/index_3.html perl 有句格言:There is more than one way to do it。意思就是任何问题用 perl 都有好几种解决方法。以前处理 文件 路径的时候都是自己写正则表达式,而用 perl 的模块来解决则更加迅速、准确。 1). File::Basename 有3个方法:fi...
在shell中使用*来对 文件 名进行通配扩展,在 Perl 中也同样支持 文件 名通配。而且 perl 中的glob通配方式和shell的通配方式完全一致,实际上 perl 的glob函数就是直接调用csh来通配的(如果不存在csh,则使用其它shell),也因此通配是一个效率较低的操作。 glob通配函数 元字符 意义 -------------------------------- [] 字符...
Perl 脚本是一种流行的脚本语言,在文本处理方面非常强大。其中一个重要的用途是通过正则表达式 匹配 和替换文本中的内容。 匹配 和替换是 Perl 中非常常见的操作,也是 Perl 的强项之一。使用 Perl 脚本进行 匹配 和替换时,常常采用正则表达式进行模式 匹配 。通过定义 匹配 模式,我们可以对文本中满足该模式的内容进行替换。具体步骤如下: 1. 定义 匹配 模式:使用正则表达式定义需要 匹配 的文本模式。 2. 定义替换模式:使用 Perl 命令替换或者s///指令定义要替换的文本模式。 3. 执行 匹配 和替换:将 匹配 模式和替换模式传递给 Perl 的替换函数,执行替换操作。 举个例子,我们需要将文本中所有的"A"替换成"B"。使用以下代码即可实现: $word = "AAA"; $word =~ s/A/B/g; print $word; 输出结果为: 其中,"s/"后面的"A/B/g"表示需要将文本中的所有"A"替换成"B","g"表示全局替换。 总之, Perl 脚本可以便捷地实现 匹配 和替换操作,具有很高的灵活性和强大的处理能力。