Besoin de modifier le comportement d'un script Perl…

Après quelques recherches, petite liste de liens qui m'ont été utiles :

• Comment appeler une commande shell depuis Perl : system("sh script.sh --help");
  • https://stackoverflow.com/questions/3200801/how-can-i-call-a-shell-command-in-my-perl-script/3200810#3200810
  • https://perldoc.perl.org/functions/system.html
• Comment supprimer un fichier : unlink $temp_file;
  • https://alvinalexander.com/blog/post/perl/how-delete-file-perl-unlink
  • https://perldoc.perl.org/functions/unlink.html
• Comment lire le contenu d'un fichier et le placer dans une variable ligne par ligne :

  open(my $fh, '<:encoding(UTF-8)', $temp_file)
      or die "Could not open file '$temp_file' $!";
  while (my $row = <$fh>) {
      chomp $row;
      push(@my_array, "$row");
  }

  • https://perlmaven.com/open-and-read-from-files
  • https://stackoverflow.com/questions/4505381/perl-read-line-by-line
• Comment utiliser une variable Perl dans une commande Shell :

  system("ls -1 /dev/sd* | grep -vE '[0-9]' > $temp_file") == 0
    or die "system command to create $temp_file failed: $?";

  • https://stackoverflow.com/questions/16715470/interpolate-perl-variable-in-shell-command/16715559#16715559

Et au final ça s'est plutôt bien passé :)