我的文件内容如下，只读取匹配到了2之后的内容；
#cat file.txt
111111111111
111111111111
111111111111
111111111111
222222222222
222222222222
3333333333333
3333333333333
3333333333333
代码如下：
#!/uer/bin/perl -w
usr strict;
open B,$ARGV[0] or die;
while(<B>){
chomp;
if (/\[^222\]/) {
$line_num = $. + 1;
}
next if ($line_num == 0);
if ($. > $line_num){
print "$_\n";
}
}
}
我的文件内容如下，只读取匹配到了2之后的内容； 代码如下：
awk标准语法 awk打印第一次匹配行后的行 awk 打印匹配内容之前或之后的指定行 awk只处理第一个匹配的行，...
sed在处理文本时是逐行读取文件内容，读到匹配的行就根据指令做操作，不匹配就跳过。 sed是Linux下一款功能强...
1、awk 匹配文档的某行内容，再打印某行内容之前或者之后的指定行
写入内容 读取内容 iter_rows()按行迭代读取内容 iter_cols()按列迭代读取内容 读取内容并统计...
今天在Perl匹配替换的时候，发现有字串只能根据上一行定位，所以导致我要把2行都匹配出来，后做替换动作 开始这样写...
关于perl读取服务器/本地路径下的图片宽高问题 最近在写perl程序的时候发现需要读取图片的宽和高，这种...
智能匹配 这儿有一个标准 Perl 6（即在你的编译单元开始的时候所生效的 Perl 方言） 的智能匹配表格。智能...
perl语言的强大之处就在于他的正则表达式，Perl的正则表达式的三种形式，分别是匹配，替换和转化: 匹配：m//...
本文标题：perl 读取匹配行之后的内容
本文链接：https://www.haomeiwen.com/subject/grepeqtx.html
网友评论