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

Question

如何搜索和删除

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;
}

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