#!/usr/bin/perl -w
use strict;
# --- Retourne le contenu du fichier dont le chemin est passé en paramètre
sub lecture {
my @contenu = ();
open(FILE, "$_[0]") || die "Erreur E/S: $!\n";
@contenu = <FILE>;
close(FILE);
return @contenu;
}
sub lecture {
open IN, $_[0] or die "Impossible d'ouvrir le fichier $_[0] pour la cause suivante : $!\n";
my $infos_fichier = "";
while( $infos_fichier .= <IN> ) {
;
}
close IN;
return $infos_fichier;
}
#!C:\Perl\lib\perl.exe
lecture("fich.txt");
sub lecture {
open IN, $_[0] or die "Impossible d'ouvrir le fichier $_[0] pour la cause suivante : $!\n";
my @infos_fichier;
@infos_fichier = <IN>;
my $i = 0;
my $long = @infos_fichier;
printf $long."\n";
while( $i < $long ){
print $infos_fichier[$i++]."\n";
}
close IN;
return $infos_fichier;
}
#!/usr/bin/perl -w
use strict;
sub lecture {
my $fichier_in = "./essai.xls";
open (IN, "$fichier_in") || die "Impossible d'ouvrir le fichier essai.xls pour la cause suivante : $!\n";
my @infos_fichier = <IN>;
close IN;
return @infos_fichier;
}
sub ecriture {
my $fichier_out = "./ecriturexls.txt";
open (OUT,">$fichier_out");
foreach my $valeur (@_) {
print OUT $valeur;
}
close(OUT);
}
my @infos_fichier = &lecture;
&ecriture(@infos_fichier);
Vous n'aimez pas le lifting de Facebook ? Le site Mashable propose cinq étapes pour revenir à l'ancienne présentation du réseau social.
#C:\Perl\bin\perl.exe
soit inutile, sans cela je ne peux pas le faire chez moi.
@+