Question

如何搜索和删除

6 ./ABC/DEG/gmail/xyz.txt
39415 ./ABC/DEG/yahoo/xyz.mp3

目标是搜索并删除＆＃34; / ABC / DEG＆＃34;

Perl script
use strict;
use warnings;

my $infile = 'file.txt';

local @ARGV = ($infile);
local $^I = '.bac';
while( <> ){
    s/ABC/DEG//;
    print;
}

Answer 1

您可以转义正斜杠，也可以使用不同的分隔符：s{}{}

use warnings;
use strict;

while (<DATA>) {
    s{/ABC/DEG}{};
    print;
}

__DATA__
6 ./ABC/DEG/gmail/xyz.txt
39415 ./ABC/DEG/yahoo/xyz.mp3

Answer 2

您可以直接在终端上执行此操作：

perl -pi -e 's{ABC/DEG}{}g' <filename>

或者如果您仍想要备份：

perl -pi.bak -e 's{ABC/DEG}{}g' <filename>

使用Perl脚本搜索和删除字符串

2 个答案: