Grosse MÀJ avec correction des conflits

master
karchnu 12 years ago
commit 982d9215bb

@ -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

@ -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;
# }
#};

@ -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/);
};
}

@ -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);

Loading…
Cancel
Save