主页 / ubuntu / 问题 / 1301060
Accepted
Mario Palumbo
Asked: 2020-12-19 02:26:34 +0800 CST

使用 perl 命令仅替换最后一次出现的字符串

  • 772

我有一个标准输出或文件无关紧要：

mela
pera
banana
caffè
mela
pera
banana
caffè
mela
pera
banana
caffè

我只想删除最后一次出现的“ mela”，使用perl：

mela
pera
banana
caffè
mela
pera
banana
caffè
pera
banana
caffè

我该怎么做？

perl text-processing

2 个回答

  1. Best Answer
    perl -lwne '
    if ($_ eq "mela") {
        if ($i) {
            print for splice @buffer, 0, $i;
        }
        $i = 1+$#buffer;
    }
    push @buffer, $_;
    END {
        splice @buffer, $i, 1;
        print for @buffer;
    }'

    -n逐行读取输入（文件或标准输入）。不是打印每一行，而是将这些行推入缓冲区。当你遇到 时mela，你会$i指向它在缓冲区中的位置。再次遇到mela时，将缓冲区的第一部分打印到上一个mela. 在输入结束时，您打印缓冲区，除了mela由 . 指向的最后一个缓冲区$i。

    未针对边缘情况进行测试（几个melas 相互跟随，mela在第一行/最后一行等）

    • 0

  2. 在独立的 Perl 程序中：

    #!/usr/bin/perl
# Desc: Repeat everything back, except last occurrence of given string
# Synt: $0 string <infile

## for each input record in reverse order,
##   if string not found before, and found now, set flag, else stack record
## print stack
$s = shift."\n";   # get string, append LF
for ( reverse <STDIN> ) {
    if ( !$f && $s eq $_ )  { $f=1          }
    else                    { unshift @o,$_ }
}
print @o;

    或者作为高级用户的单线，在行动中：

    $ echo -e "11\nmela\n22\nmela\n33" | perl -e '$s=shift."\n";
 !$f && $s eq $_ ? $f=1 : unshift @o,$_  for reverse <STDIN>;
 print @o;' mela
11
mela
22
33
    • 0

相关问题