karchnu/some-usable-scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Grosse MÀJ avec correction des conflits

Browse Source
This commit is contained in:
karchnu 2012-06-27 21:42:23 +02:00
commit 982d9215bb
4 changed files with 26 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
perl/essai3.perl
View File

@ -1,23 +1,28 @@
#!/usr/bin/perl #!/usr/bin/perl
use 5.16.0;
# Exercices tableaux # Exercices tableaux
@alphabet = ("a" .. "z"); my @alphabet = ("a" .. "z");
@cartes = ("01".."10","valet","dame","roi"); my @cartes = ("01".."10","valet","dame","roi");
@annee=("a1","a2","lp"); my @annee=("a1","a2","lp");
@promo=@annee; my @promo=@annee;
@tout = (@alphabet , "dut" , @cartes , 1145, "\n"); my @tout = (@alphabet , "trucmachin" , @cartes , 1145, "\n");
print @tout; print @tout;
# Autre exercice # Autre exercice
@jours=("Lundi","Mardi","Mercredi"); my @jours=("Lundi","Mardi","Mercredi");
foreach $jours(@jours) # explicite
{ #foreach $jours(@jours)
print $jours."\n"; #{
} # print $jours."\n";
#}
say foreach @jours ;
# Perl : les nombres : < > <= >= == != # Perl : les nombres : < > <= >= == !=
# Chaînes : lt gt eq ne # Chaînes : lt gt eq ne

18
perl/grep.pl
View File

@ -1,6 +1,4 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# -w pour les erreurs
$motif = shift(@ARGV); $motif = shift(@ARGV);
# $motif=$ARGV[0] # $motif=$ARGV[0]
#Shift #Shift
@ -8,14 +6,14 @@ $motif = shift(@ARGV);
# Manière non explicite # Manière non explicite
while(<>) while(<>)
{ {
if(/$motif/) { print ; }; print if(/$motif/);
}; };
# Manière explicite # Manière explicite
while($ligne = <>) #while($ligne = <>)
{ #{
if($ligne =~ /$motif/) # if($ligne =~ /$motif/)
{ # {
print $ligne; # print $ligne;
} # }
}; #};

6
perl/grep2.pl
View File

@ -6,9 +6,7 @@ foreach $f (@ARGV)
{ {
open(F,"<$f") || die "Impossible de lire le fichier $f : $!"; open(F,"<$f") || die "Impossible de lire le fichier $f : $!";
while(<F>) while(<F>) {
{ print "Motif trouvé dans $f : $_ \n" if(/$motif/);
if(/$motif/)
{ print "Motif trouvé dans $f : $_ \n";}
}; };
} }

5
perl/wc.pl
View File

@ -5,10 +5,7 @@
open(F, "<$ARGV[0]") || die "Problème d'ouverture de fichier ! "; open(F, "<$ARGV[0]") || die "Problème d'ouverture de fichier ! ";
$i = 0 ; $i = 0 ;
while(<F>) $i++ while(<F>);
{
$i++;
};
close(F); close(F);