Hello,
 
J'ai un fichier texte comme ceci :
 

 
J'aimerais exécuter une commande prenant en variable chaque item.
 
Voici mon taff pour l'instant :
 

 
J'obtiens ça comme résultat :

 
Alors que j'aimerais ceci :

 
Et je ne comprend pas bien pourquoi...
 
Précision: je débute en Perl, désolé si je choque quelqu'un  

Manifestement, la ligne my $date = `date +%d%m%y`; renvoie une valeur terminée par un "\n"
Plutôt que faire un appel au shell, utilisez directement les fonctions perl comme localtime
my $date = join "", map { sprintf("%02d", ($_ + (0, 1, -100)[$i++])) }(localtime)[3..5];
devrait faire l'affaire.
 
Explication de cette ligne  
Je pars de localtime
ça renvoie une liste qu'on peut récupérer ainsi:  
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime() ;
ce qui nous intéresse ici, c'est $mday, $mon, $year
que je récupère directement comme sous liste: (localtime)[3..5];
problème: c'est décalé:
pour les jours, c'est OK, mais pour les mois, ça commence à 0 pour janvier, et pour les années, 0 c'est 1900.
Il faut donc décaler les valeurs:
my ( $mday, $mon, $year ) = (localtime)[3..5];
$mon += 1;
$year += 1900;
En perl, on peut faire travailler directement sur la liste, en faisant
my ( $mday, $mon, $year ) = map {$_ + (0, 1, 1900)[$i++]}(localtime)[3..5];
Comme dans votre cas on veut que la partie de l'année a partir de 2000, au lieu d'ajouter 1900, on va retirer 100
my ( $mday, $mon, $year ) = map {$_ + (0, 1, -100)[$i++]}(localtime)[3..5];
On veut de plus que chaque valeur soit sur deux chiffres, avec un 0 initial si nécessaire, on fait alors
my ( $mday, $mon, $year ) = map { sprintf("%02d", $_ + (0, 1, -100)[$i++])}(localtime)[3..5];
Enfin, on concatène la liste dans une variable
my $date = join "", map { sprintf("%02d", $_ + (0, 1, -100)[$i++])}(localtime)[3..5];
 
A+,

Une réécriture de votre code:
 

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
 
my $liste_hotes = '/mnt/250Go/Taff/BackupPC/Archivage/hosts.txt';
 
open my $FICHIER_HOST, '<', $liste_hotes;
my @array = <$FICHIER_HOST>;
close $FICHIER_HOST;
 
map {s/\s+$//} @array;
 
my $i = 0;
my $date = join '', map { sprintf("%02d", $_ + (0, 1, -100)[$i++]) }(localtime)[3..5];
 
foreach (@array) {
  print $_.'.'. $date.".tar.gz\n";
}

 
#!/usr/bin/env perl -w
plutôt que le flag -w, utilisez
use strict;
use warnings;
 
et le use autodie; permet d'éviter les open(my $FICHIER_HOST,"< $liste_hotes" ) || die ("Impossible d'ouvrir le fichier : $!" );
 
my $liste_hotes = "/mnt/250Go/Taff/BackupPC/Archivage/hosts.txt"; -> my $liste_hotes = '/mnt/250Go/Taff/BackupPC/Archivage/hosts.txt';
Toujours des simple quotes avec les paths et noms de fichiers, s'il n'y a rien de variable au milieu
 
my @array = <$FICHIER_HOST>; copie le contenu du fichier dans l'array
et map {s/\s+$//} @array; modifie en place l'array
C'est pas mieux que ce que vous aviez écrit, juste un peu plus lisible.
Le chomp est a priori inutile, car le s/\s+$// va virer le \n (et le cas échéant \r) de fin de ligne.  
 
A+,

Super, merci, ton explication est parfaite.
 
J'ai obtenu cette erreur avec ton bout de code :
"Global symbol "$i" requires explicit package name".
 
Étant donné que j'utilise use strict; il a fallu que je mette un my $i; quelque part pour que tout fonctionne nickel.
Ah ben oui...je viens de le voir dans votre code. Initialiser la variable.
 
Encore merci pour ces conseils.  

En relisant le code, j'ai viré le chomp qui était en fait inutile.
A+,