Подскажите пожалуйста какое регулярное выражение использовать чтобы выделить в отдельную переменную числа из такой строки: "    Total bytes:    12345" (перед Total и цифрами табуляция).
Пробую что-то типа $chisla = s/*/s Total *.(+\d)$/; - выдаёт ошибку... С regex ни разу не работал, буду очень благодарен за помощь.

• Perl+Regex,Brainbug, 14:13 , 26-Окт-04
• Perl+Regex,mthawk, 12:22 , 27-Окт-04

>Подскажите пожалуйста какое регулярное выражение использовать чтобы выделить в отдельную переменную числа
>из такой строки: " Total bytes: 12345" (перед Total и цифрами
>табуляция).
>Пробую что-то типа $chisla = s/*/s Total *.(+\d)$/; - выдаёт ошибку... С
>regex ни разу не работал, буду очень благодарен за помощь.

Dumaju 4to kak nibud tak mozhno:

#!/usr/local/bin/perl -w

$test=" Total bytes:    12345";
printf("%s\n",$test);
$_=$test;
if (/\t(\D+)\t(\d+)$/){
        $chisla=$2;
}
printf("%s\n",$chisla);
exit 0;

>Подскажите пожалуйста какое регулярное выражение использовать чтобы выделить в отдельную переменную числа
>из такой строки: " Total bytes: 12345" (перед Total и цифрами
>табуляция).
>Пробую что-то типа $chisla = s/*/s Total *.(+\d)$/; - выдаёт ошибку... С
>regex ни разу не работал, буду очень благодарен за помощь.

Вот рабочий код.

#!/usr/bin/perl
$test=" Total bytes:    12345";
$test=~/\tTotal bytes:\t(\d+)/;
print "$1\n";