如何搜索和删除
6 ./ABC/DEG/gmail/xyz.txt
39415 ./ABC/DEG/yahoo/xyz.mp3
目标是搜索并删除“/ABC/DEG”
Perl script
use strict;
use warnings;
my $infile = 'file.txt';
local @ARGV = ($infile);
local $^I = '.bac';
while( <> ){
s/ABC/DEG//;
print;
}
最佳答案
您可以转义正斜杠,或使用不同的分隔符:s{}{}
use warnings;
use strict;
while (<DATA>) {
s{/ABC/DEG}{};
print;
}
__DATA__
6 ./ABC/DEG/gmail/xyz.txt
39415 ./ABC/DEG/yahoo/xyz.mp3
关于string - 使用 Perl 脚本搜索和删除字符串,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/22462129/