Как я могу хранить только числа в переменной в Perl?

Question

У меня есть переменная, подобная этой ниже:

G12345 (@@)

Как мне сохранить в переменной только цифры 12345. Я делал это раньше в PHP, но не могунайти путь в Perl.

Answer 1

$v =~ s/\D//g; должно сработать.

(Регулярное выражение заменяет «Не число» на «ничто», глобально)

Answer 2

Это также можно сделать без регулярных выражений: Транслитерация: tr ///

use warnings;
use strict;

my $s = 'G12345(@@)';
$s =~ tr/0-9//cd;
print "$s\n";

__END__

12345

Answer 3

Вы также можете сделать это следующим образом:

my ( $number ) = $string =~ /(\d+)/;

Это означает, что после '(@@)' должны были появиться какие-то другие цифры - по любой причине, что бы вы внезапно не связали эти цифры с числом, лежащим между "G" и "(". метод захвата гарантирует, что вы получите первый набор непрерывных цифр.

Answer 4

Замените любые нечисловые символы пустой строкой (\ D не числовой):

$var =~ s/\D+//g;