recuperation d'une séquence dans une ligne

Question

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.

loupius · Answer

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é
";
}
else
{
        print "pas trouvé
";
}

Recuperation d'une séquence dans une ligne

1 réponse

Votre réponse

Discussions similaires

Newsletters