Extrait de l'requis sous-chaîne à partir d'une autre chaîne -Perl

Je veux extraire une sous-chaîne à partir d'une ligne en Perl. Je m'explique en donnant un exemple:

fhjgfghjk3456mm   735373653736
icasd 666666666666
111111111111

Dans les lignes ci-dessus, je ne veux extraire le nombre à 12 chiffres. J'ai essayé d'utiliser split fonction:

my @cc = split(/[0-9]{12}/,$line);
print @cc;

Mais ce qu'il fait est supprime correspondant à la partie de la chaîne et stocke le résidu dans @cc. Je veux que la partie correspondant au modèle à imprimer. Comment puis-je le faire?

OriginalL'auteur Amey | 2012-07-02

  1. 3

    Le 1 $variable intégrée stocke le dernier match à partir d'une expression rationnelle. Aussi, si vous effectuez une expression régulière sur l'ensemble de la chaîne, il sera de retour l'ensemble de la chaîne. La meilleure solution ici est de mettre des parenthèses autour de votre match, alors print $1.

    my $strn = "fhjgfghjk3456mm 735373653736\nicasd\n666666666666 111111111111";
$strn =~ m/([0-9]{12})/;
print $1;

    Cette rend notre regex match de la période de douze chiffres, puis nous retournons qui correspondent à $1.

    Merci.. C'était assez simple.. Mais faites-moi confiance, j'ai beaucoup lu avant de poster cette question. Merci beaucoup..
    Vous ne devez pas utiliser $1 sans conditionnel.

    OriginalL'auteur PinkElephantsOnParade

  2. 8

    Vous pouvez le faire avec les expressions régulières:

    #!/usr/bin/perl
my $string = 'fhjgfghjk3456mm 735373653736 icasd 666666666666 111111111111';
while ($string =~ m/\b(\d{12})\b/g) {
  say $1;
}

    Test de la regex ici: http://rubular.com/r/Puupx0zR9w

    use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(qr/\b(\d+)\b/)->explain();

The regular expression:

(?-imsx:\b(\d+)\b)

matches as follows:

NODE                     EXPLANATION
----------------------------------------------------------------------
(?-imsx:                 group, but do not capture (case-sensitive)
                         (with ^ and $ matching normally) (with . not
                         matching \n) (matching whitespace and #
                         normally):
----------------------------------------------------------------------
  \b                       the boundary between a word char (\w) and
                           something that is not a word char
----------------------------------------------------------------------
  (                        group and capture to :
----------------------------------------------------------------------
    \d+                      digits (0-9) (1 or more times (matching
                             the most amount possible))
----------------------------------------------------------------------
  )                        end of 
----------------------------------------------------------------------
  \b                       the boundary between a word char (\w) and
                           something that is not a word char
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

    OriginalL'auteur simbabque

  3. 3
    #!/bin/perl
my $var = 'fhjgfghjk3456mm 735373653736 icasd 666666666666 111111111111';
if($var =~ m/(\d{12})/) {
  print "Twelve digits: $1.";
}
    Grâce Rawkode... Qui a résolu mon problème..

    OriginalL'auteur Rawkode

  4. 1
    #!/usr/bin/env perl

undef $/;
$text = <DATA>;
@res = $text =~ /\b\d{12}\b/g;
print "@res\n";

__DATA__
fhjgfghjk3456mm   735373653736
icasd 666666666666
111111111111

    OriginalL'auteur cdtits