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
脚本可以便捷地实现
匹配
和替换操作,具有很高的灵活性和强大的处理能力。