Dans mon /var/tmp J'ai les fichiers suivants :
ls | grep FILE
AAA-FILE.xml
BBB-FILE.xmlAvec la commande suivante, je coupe le premier mot des fichiers comme suit :
ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//"J'ai compris :
AAA
BBBComment puis-je faire la même chose avec Perl afin d'insérer les "AAA" et "BBB" dans @RESULTS ? Par exemple :
@RESULTS=perl syntax ...En supposant que vous voulez continuer à utiliser la commande existante, vous pourriez faire
my @results = `ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//"`;
chomp for @results;le chomp est pour se débarrasser de la nouvelle ligne qui suit.
Sans avoir recours à l'appel de commandes externes :
my @results;
opendir DIR,"/var/tmp" or die "Cannot open dir: $!";
for (readdir DIR) {
/(.*)-FILE.*/ or next;
push @results, $1;
}
closedir DIR;
SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.
