Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: Inverser les lignes d’un texte

@reverse_lines = reverse @lines;
print @reverse_lines;

Perl: Modifier un fichier

#!/usr/local/bin/perl
my $old="fichier1.txt";
my $new="fichier2.txt";
open(OLD, "<", $old)        or 
open(NEW, ">", $new)        or 
while (<OLD>)

Perl: Trouver la fin d’une chaîne de caractères

 #!/usr/local/bin/perl -w
 
 LINE:
while (my $ligne = <>) {
next LINE if $ligne

Perl: Exemple d’accès aux sous-chaînes(substring)

#!/usr/bin/perl
 
###########  Sous-chaîne   #################
#  pour retourner une partie de la cha

Exemple de comparaison des types string

 #!/usr/bin/perl
 
# les deux string sont convertis en int avant la conversion
$result = "64" < "128