Extraire un nombre qui est assigné à une chaîne en utilisant un script Perl

Une variante sur @terdon -- pour chaque /rock=(...)/, dis-le :

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

et une solution avec grep

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

Voici une façon de faire :

$ perl -lne  '/rock=([^.,]+)/ && print $1' file
0x8912

Le /rock=([^.]+)/ va correspondre à la chaîne rock= puis capturer la plus longue série d'un ou plusieurs caractères non-. ([^.]+). Les parenthèses "captureront" la correspondance et la rendront disponible en tant que $1. Si cela correspond, $1 est imprimé.

Le -l supprime les sauts de ligne en fin de chaque ligne d'entrée et ajoute un saut de ligne à chaque appel de print. Le -n indique à perl de lire un fichier d'entrée ligne par ligne et d'appliquer le script donné par -e à chaque ligne.

Quelque chose comme ça

echo Tom=0×1234,Bob=0x4567,rock=0x8912 | perl -E'while(<<>>){print map$_->[1],grep$_->[0]=~/rock/,[split/=/]for split/,/,$_}';

Cela compile avec warnings et utilise le nouveau <<>> donc c'est vraiment du bon code perl.