使用 Perl 脚本提取分配给字符串的数字

Question

我有一个input.txt包含一些字符串的文件，每个字符串都有一些分配给它的值。

我的任务是编写一个 Perl 脚本来提取分配给任何字符串的数字。

例如，鉴于这个 input.txt

Tom=0×1234,Bob=0x4567,rock=0x8912.

我必须提取分配给rock.

我需要一些帮助来编写脚本来执行此操作。

Answer 1

@terdon 的一个变体——对于每个 /rock=(...)/，说：

perl -nE 'say for /rock=(\w+)/'

和 grep 的解决方案

grep -Po 'rock=\K\w+' file