本帖最后由 523066680 于 2019-1-15 17:44 编辑
楼上说的对,模仿一个:- use File::Slurp;
- my $s=read_file("src.txt");
- $s=~s/.*((BENDE|LASTF).*){2}\r?\n//;
- print $s;
复制代码 (哦这样不严谨,比如重复的 BENDE BENDE,所以还是克隆好了)- use File::Slurp;
- my $s=read_file("src.txt");
- $s=~s/.*(BENDE.*LASTF|LASTF.*BENDE).*\r?\n//;
- print $s;
复制代码
|