Perl Regular Expression - Dynamic Спички

Question

Допустим, я хочу, чтобы соответствовать и захватить 5 целых чисел, разделенных одним или несколькими пробелами - пример ввода:

Я мог бы это сделать :

my $input = '1111  234   3333   456 7890'; 
if($input =~ /^\s*([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+([0-9]+)/) 
{ 
    #$1 = '1111', $2 = '234', $3 = '3333', $4= '456', $5 = '7890' 
} 

Но я хочу сделать что-то вроде этого, чтобы регулярное выражение проще, а не повторять каждый раз INT 5 явно:

my $input = '1111  234   3333   456 7890'; 
if($input =~ /^((\s*[0-9]+){5})/) 
{ 
    #$1 = '1111  234   3333   456 7890'; 
    #$2 = ' 7890' 
    #all other capture variables are undefined 
} 

Однако захваты, похоже, не работают.

Есть ли способ, которым я могу это сделать и все еще получать доступ к моим 5 захватам?

Еще лучше было бы неизвестное количество захватов:

my $input = '1111  234   3333   456 7890'; 
if($input =~ /^((\s*[0-9]+)+)/) 
{ 
    #foreach capture 1..N do something... 
} 

Answer 1

my @numbers = $input =~ /\d+/g; 

глобальный флаг вернет все матчи в контексте списка, которые будут храниться в массиве.

Answer 2

Если вы знаете, что разделитель (в данном случае, один или несколько пробелов), то вам не нужно регулярное выражение, чтобы захватить что ты хочешь. Вы можете использовать split.

use strict; 
use warnings; 

my $input = "1111  234   3333   456 7890"; 
my @ints=split /\s+/,$input; 
print "$_\n" foreach(@ints); 

Который выводит:

1111 
234 
3333 
456 
7890 

Answer 3

ли модель линии всегда значные группы, разделенные пробелами? Если это так, а не регулярное выражение, то почему бы не разделить на массив на основе пробельных

@outArray = split (/ +/,$input); 

Answer 4

Следующие будут захватывать первые 5 целых чисел и игнорировать их после этого, если это то, что вам нужно. Возможно, я не совсем понимаю.

#!/usr/bin/perl 
use strict; 
use warnings; 

my $in = '1111  234   3333   456 7890 12 13'; 

my @ints = (split ' ', $in)[0 .. 4]; 

print "@ints\n"; 

Печать:

1111 234 3333 456 7890 

Chris