#!/usr/bin/perl -w
($f,$out) = @ARGV;
if (@ARGV!=2){
print "Usage : $0 fichier_in fichier_out \n";
die "$!\n";
}
open FICHIER, "$f";
open OUT, "> $out";
#Lire le fichire d'entrée
#Ecrire le fichier de sortie
close FICHIER;
close OUT;
#....
#$out nom du fichier de sortie
open OUT, "> $out";
#...
print OUT "J'ecris le contenu de la table de hachage hash que j'ai deja rempli auparavant dans mon joli programme perl\n";
foreach $i (sort keys %hash){
if (defined($hash{$i})){
print OUT "$hash{$i}\n";
}
}
#...
close OUT;
Découvrez ici tout ce qui vous attend dans la nouvelle version du célèbre système d'exploitation.
