Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Trouver la nième occurence d’un mot dans une chaîne à l’aide de modificateur ‘/g’

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download # Trouver le mot qui precede la 3ème occurence du mot "Perl"   $occur = 3; #Nième occurence $compteur...
Comments Off

Effacer espace au début et à la fin d’une chaîne

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download sub trim { my @out = @_; for (@out) { s/^s+//; # Espace à gauche s/s+$//;...
Comments Off

Expression régulière: Détecter si un mot est un palindrome ou non

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download # Un palindrome est un texte dont la succession des lettres # est la même quand on la parcourt de gauche à droite ou de...
Comments Off

Valider le pattern d’une expression régulière à l’aide de fonction ‘eval(pattern)’

Download do { print "Veuillez Taper votre Pattern? "; chomp($pat = <>); eval { "" =~ /$pat/ }; warn "Votre pattern est invalide $@" if $@; } while $@; Livres...
Comments Off

Expression régulière: Comment faire les correspondance approximative

Download #!/usr/bin/perl -w   use String::Approx qw(amatch);   open(FH, "c:/test.txt") # Ouvrir le fichier or die "Impossible d'ouvrir test: $!"; while(<FH>) { ...
Comments Off

Expression régulière: Effectuer des matches consécutifs

Download #!/usr/bin/perl -w   $_ = "J'aime Perl version 6 et java version 1.7 pour 2012";   $count=0; # Trouver tous les chiffres dans le texte while (/(d+)/gc) { $count+=1; print "Nombre trouvé=...
Comments Off

Calculer la différence en nombre de jour entre deux dates

Download use Date::Calc qw(Delta_Days);   @date1 = (2011, 1, 30); # 30 janvier 2011 @date2 = (1985, 3, 05); # 05 Mars 1985   #Calculer la différence $difference = Delta_Days(@date2, @date1); print...
Comments Off

Lire une colonne ou une ligne d’un fichier excel

Download use Spreadsheet::Read;   # Lecture d'un fichier Microsoft Excel .xls my $ref = ReadData( 'test.xls' ); my $fval = $ref->[1]{A3}; my $uval = $ref->[1]{cell}[1][3]; Livres...
Comments Off

Vérifier si les données Scalaires sont des lettres seulement(accent inclut)

Download #!/usr/bin/perl   # Démander à l'utilisateur de taper un mot ou une phrase # Vérifier si l'entrée est purement alphabétique   use locale; use POSIX 'locale_h';   unless (setlocale(LC_CTYPE, "fr_FR.ISO8859-1"))...
Comments Off

Vérifier le début d’une chaîne avec le symbole ‘^’

Download #!/usr/bin/perl   print "Tapez une phrse commençant par le mot perl: "; foreach $elem ($ligne=<STDIN>) # Lire l'entrée clavier { # Vérifier sir la ligne commence par le mot 'perl'. if...