le remplacement d'une variable script shell en Perl

Question

J'ai une variable dans un script shell,

var=1234_number 

Je veux remplacer tout autre que entier de $ var .. comment puis-je le faire en utilisant un onliner perl?

Answer 1

Pas besoin d'utiliser autre chose que la coquille pour cette

var=1234_abcd 
var=${var%_*} 
echo $var # => 1234 

Voir « Expansion des paramètres » dans le manuel bash.

Answer 2

Vous cherchez peut-être quelque chose à modifier le script shell, auquel cas, cela pourrait être suffisant:

perl -i.bak -e 's/\b(var=\d+).*/$1/' shellscript.sh 

Le « -i » écrase le fichier original, enregistrer une copie dans shellscript.sh.bak ; la commande de substitution trouve des affectations à 'var' (et non plus un nom se terminant par 'var') suivi d'un signe égal, de quelques chiffres et de tous les non-chiffres, et ne laisse que l'attribution des chiffres.

Dans l'exemple, il donne:

var=1234 

Notez que le Perl est regex pas à toute épreuve - il mutiler ce (laissant tomber l'accolade de fermeture).

: ${var=1234_number} 

Faire face à toutes ces variantes possibles est extrêmement assez délicate:

echo $var=$other 

OTOH, vous pourriez être à la recherche d'éliminer les chiffres d'une variable dans un script shell, auquel cas:

var=$(echo $var | perl -e 's/\D//g') 

Vous pouvez également utiliser sed pour le travail:

var=$(echo $var | sed 's/[^0-9]//g')