ajout de fichiers pour PERL -- notions intéressantes
parent
d5c732de90
commit
e5d3b139cf
|
@ -0,0 +1,21 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# Exercices tableaux
|
||||
@alphabet = ("a" .. "z");
|
||||
@cartes = ("01".."10","valet","dame","roi");
|
||||
@annee=("a1","a2","lp");
|
||||
@promo=@annee;
|
||||
@tout = (@alphabet , "trucmachin" , @cartes , 1145, "\n");
|
||||
|
||||
print @tout;
|
||||
|
||||
# Autre exercice
|
||||
|
||||
@jours=("Lundi","Mardi","Mercredi");
|
||||
|
||||
print $_."\n" foreach @jours ;
|
||||
|
||||
# Perl : les nombres : < > <= >= == !=
|
||||
# Chaînes : lt gt eq ne
|
||||
|
||||
# !~ et =~ sont des opérateurs d'appartenance
|
|
@ -0,0 +1,20 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
$motif = shift(@ARGV);
|
||||
# $motif=$ARGV[0]
|
||||
#Shift
|
||||
|
||||
# Manière non explicite
|
||||
while(<>)
|
||||
{
|
||||
print if(/$motif/);
|
||||
};
|
||||
|
||||
# Manière explicite
|
||||
#while($ligne = <>)
|
||||
#{
|
||||
# if($ligne =~ /$motif/)
|
||||
# {
|
||||
# print $ligne;
|
||||
# }
|
||||
#};
|
|
@ -0,0 +1,13 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
$motif=$ARGV[0];
|
||||
shift;
|
||||
foreach $f (@ARGV)
|
||||
{
|
||||
open(F,"<$f") || die "Impossible de lire le fichier $f : $!";
|
||||
|
||||
while(<F>)
|
||||
{
|
||||
print "Motif trouvé dans $f : $_ \n" if(/$motif/);
|
||||
};
|
||||
}
|
Loading…
Reference in New Issue