ajout de fichiers pour PERL -- notions intéressantes

master
Philippe Pittoli 2012-01-05 12:02:51 +01:00
parent d5c732de90
commit e5d3b139cf
3 changed files with 54 additions and 0 deletions

21
perl/essai3.perl Executable file
View File

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

20
perl/grep.pl Executable file
View File

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

13
perl/grep2.pl Executable file
View File

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