Coucou all,

Je suis actuellement stagiaire dans une grande entreprise et j'ai pour mission de créer un petit script en perl qui a pour but de trouver les numéros serials de certains équipements, ces équipements sont placés par leurs noms dans un fichier texte et c'est ce fichier que le script va avoir en input ;

Mais je dois faire un filtre sur des noms machines, je ne dois faire ces requètes que sur les fichiers commencant par : (SD|SW|SR|RT|RS) alors que dans le fichier texte il y a d'autres noms,

Je débute un peu donc merci de ne pas rigoler du code suivant ^^

J'ai pensé à faire :

foreach $ARGV !~ m/^(SD|SW|SR|RT|RS);
Mais je suis vraiment pas convaincu...

Si quelqu'un pouvait m'aider à faire ce filtrage de noms machines ce serait super !