autre exemples |  retour en bas de page  | sommaire

Regexp exemple: tout petit script permettant de voir le comportement des expressions régulières avec s/// et split.
ici nous voyons comment on pourrai sortir le PATH, le nom_du_fichier et l'extention d'une entrée utilisateur.
alain Adelmar

#!perl -w
# remd: test pour: s/MOTIF/REMPLACEMENT/egimosx  aadelmar@wanadoo.fr
$x = "x" x 30;

LABEL_TOP:print "Entrez le nom complet du fichier à traiter:\n";
chomp ( $file = <STDIN> );

# sortir le path du filename avec s///:
$road66 = $filename = $file;
$road66 =~ s/()\\\w+\.\w{2,4}$/$1/i;
$filename =~ s/^.+\\\b()/$1/;

# ($road66, $filename)= split(/\\$/, $file);
print "\n$x\n";
print "$road66 plus $filename = $file\n";
print "\n$filename\n";
 

END;



autre exemples |  retour en haut de page  | sommaire