Извлечь требуемую подстроку из другой строки -Perl

Question

Я хочу извлечь подстроку из строки в Perl. Позвольте мне объяснить, например:

fhjgfghjk3456mm 735373653736 
icasd 666666666666 
111111111111 

В приведенных выше строках я хочу только извлечь 12-значное число. Я попытался с помощью split функции:

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

Но что она делает это удаляет совпадающую часть строки и сохраняет остаток в @cc. Я хочу, чтобы часть, соответствующая шаблону, была напечатана. Как мне это?

Answer 1

в $ 1 встроенной переменной сохраняет последний матч с регулярным выражением. Кроме того, если вы выполняете регулярное выражение для целой строки, оно возвращает всю строку. Лучшее решение здесь - поставить круглые скобки вокруг вашего матча, а затем напечатать $ 1.

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

Это делает наше регулярное выражение JUST двенадцатизначным числом, а затем мы возвращаем это соответствие с $ 1.

Answer 2

#!/bin/perl 
my $var = 'fhjgfghjk3456mm 735373653736 icasd 666666666666 111111111111'; 
if($var =~ m/(\d{12})/) { 
    print "Twelve digits: $1."; 
} 

Answer 3

Вы можете сделать это с regular expressions:

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

Испытание регулярное выражение здесь: 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 \1: 
---------------------------------------------------------------------- 
    \d+      digits (0-9) (1 or more times (matching 
          the most amount possible)) 
---------------------------------------------------------------------- 
)      end of \1 
---------------------------------------------------------------------- 
    \b      the boundary between a word char (\w) and 
          something that is not a word char 
---------------------------------------------------------------------- 
)      end of grouping 
---------------------------------------------------------------------- 

Answer 4

#!/usr/bin/env perl 

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

__DATA__ 
fhjgfghjk3456mm 735373653736 
icasd 666666666666 
111111111111