Recuperation d'une séquence dans une ligne

Devmoi -  
 loupius -
Bonjour à tous.
Je suis entrain de préparer un script sous Perl: Est ce que vous pouvez m'aider.

Dans une ligne d'un fichier comment je peux récupérer une petite séquence.
Exemple:

l12, 1234, 458, efdskjf,18952.
Resultat = 1234
Merci d'avance.
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. loupius
     
    Je vais supposer passer la chaîne à rechercher comme premier argument:
    #!/usr/bin/perl -w
use strict;

my $texte = "l12, 1234, 458, efdskjf,18952.";

if ($texte =~ /$ARGV[0]/ )
{
        print "trouvé\n";
}
else
{
        print "pas trouvé\n";
}
    0