Grosse MÀJ avec correction des conflits

perl/essai3.perl

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

perl/grep.pl

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

perl/grep2.pl

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

perl/wc.pl

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