Как мне уменьшить длину переменной до 20 символов в Perl?

Question

Обычно у меня есть очень длинные переменные, и мне нужны только первые несколько символов.

Я пытался использовать это регулярное выражение, но оно не работает.

$var =~ s/(^.{20})?/$1/g;

Это не таксделайте что-нибудь с этим.

Любая помощь будет оценена.

Answer 1

$var = substr($var,0,20);

Обратите внимание, что проще:

substr($var,20) = '';

каркает, если строка меньше 20 символов.

Или с использованием подстановки (при условии 5,10 +):

$var =~ s/^.{20}\K.+//s;

или распаковка:

$var = unpack 'a20', $var;

Answer 2

substr($var, 20) = "";

удаляет символы за пределами позиции 20 в $var.

Answer 3

Это замена, которую вы, вероятно, имели в виду:

$var =~ s/^(.{20}).*/$1/;