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

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

# Trouver le mot qui precede  la 3ème occurence du mot "Perl"
 
 
$occur = 3;      #Nième occurence
$

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

sub trim
{
    my @out = @_;
    for (@out) {
        s/^s+//;          # Espace à gauche

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

# Un palindrome  est un texte dont la succession des lettres
# est la même quand on la parcourt de

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

do {
    print "Veuillez Taper votre Pattern? ";
    chomp($pat = <>);
    eval { "" =~ /$pat/ };

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

  #!/usr/bin/perl -w
 
use String::Approx qw(amatch);
 
open(FH, "c:/test.txt")                 # Ouvr

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

  #!/usr/bin/perl -w
 
$_ = "J'aime Perl version 6 et java version 1.7 pour 2012";
 
$count=0;
# Trouv

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

use Date::Calc qw(Delta_Days);
 
@date1 = (2011, 1, 30);        # 30 janvier 2011
@date2  = (1985, 3

Lire une colonne ou une ligne d’un fichier excel

use Spreadsheet::Read;
 
# Lecture d'un fichier Microsoft Excel .xls
my $ref  = ReadData( 'test.xls'

Cacher les caractères tapés sur le console(Ex: Mot de passe)

  #!/usr/bin/perl -w
 
  # Ce programme lit les caractères en mode caché
  # Efficace pour les mots d

Lire un seul caractère du clavier

   #!/usr/bin/perl -w
 
   # Empêcher l'utilisateur à appuyer
   # sur plusiuers touches du clavier