perl - 如何用同一行前面的文本替换单词？

Question

我有一个如下所示的文本文件:

_map[0x00000044] = "screen";
_map[0x00000059] = "map";
_map[0x0000006e] = "info";

我想替换每行末尾的单词，这样我的输出如下所示:

_map[0x00000044] = "0044";
_map[0x00000059] = "0059";
_map[0x0000006e] = "006e";

我想就地更新文件。我尝试了以下方法，但一定有更简单的方法。

my $infile = 'newnumbers.txt';
open my $input, '<', $infile or die "Can't open to $infile: $!";   
my @finaldata = ();

while (<$input>){
    chomp;

    print "$1\n" if ($_ =~ /(0x0000.*])/);
    push(@finaldata, $1);
}

Answer 1

use strict;
use warnings;

my $infile = 'newnumbers.txt';

local @ARGV = ($infile);
local $^I = '.bac';
while( <> ){
    s/(_map\[0x[[:xdigit:]]{4}([[:xdigit:]]{4})\] = )".*"/$1"$2"/;
    print;
}

或者如果您使用的是较新版本的 perl，则正则表达式可能如下

s/_map\[0x[[:xdigit:]]{4}([[:xdigit:]]{4})\] = \K".*"/"$1"/;