Recuperation d'une séquence dans une ligne

Fermé
Devmoi - 14 janv. 2009 à 11:51
 loupius - 14 janv. 2009 à 12:29
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.
A voir également:

1 réponse

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