Besoin de modifier le comportement d'un script Perl…
Après quelques recherches, petite liste de liens qui m'ont été utiles :
system("sh script.sh --help");
unlink $temp_file;
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");
}
system("ls -1 /dev/sd* | grep -vE '[0-9]' > $temp_file") == 0
or die "system command to create $temp_file failed: $?";
Et au final ça s'est plutôt bien passé :)