Метод 1: функция length()
Функция length() — это один из самых простых и наиболее часто используемых методов определения размера строки в Perl. Он возвращает количество символов в заданной строке. Вот пример:

my $string = "Hello, world!";
my $size = length($string);
print "Size of the string: $size\n";

Выход:

Size of the string: 13

Метод 2: регулярные выражения
Мощные регулярные выражения Perl также можно использовать для определения размера строки. Используя оператор сопоставления (=~) и шаблон //g, мы можем подсчитать количество совпадений и получить размер строки. Давайте посмотрим:

my $string = "I love Perl!";
my $size = () = $string =~ /./g;
print "Size of the string: $size\n";

Выход:

Size of the string: 12

Метод 3: разделение и подсчет
Другой подход заключается в разбиении строки на массив символов и последующем подсчете элементов массива. Вот пример:

my $string = "Welcome to Perl";
my @characters = split("", $string);
my $size = scalar @characters;
print "Size of the string: $size\n";

Выход:

Size of the string: 15

Метод 4: кодирование и длина в байтах
В некоторых случаях вам может потребоваться определить размер строки в байтах, а не в символах. Модуль Encode в Perl предоставляет полезную функцию под названием encode_utf8()для преобразования строки в кодировку UTF-8, позволяющую вычислить длину в байтах. Давайте посмотрим на это в действии:

use Encode;
my $string = "こんにちは";
my $encoded_string = encode_utf8($string);
my $size = length($encoded_string);
print "Byte size of the string: $size\n";

Выход:

Byte size of the string: 15

Метод 5: Модуль Unicode::GCString
Если вы работаете со строками в Юникоде, модуль Unicode::GCString может оказаться полезным. Он предоставляет метод length(), который учитывает кластеры графем, а не отдельные символы. Вот пример:

use Unicode::GCString;
my $string = "????????????";
my $gstring = Unicode::GCString->new($string);
my $size = $gstring->length();
print "Grapheme cluster size of the string: $size\n";

Выход:

Grapheme cluster size of the string: 3

Теперь, когда вы вооружены этими различными методами определения размера строки в Perl, вы можете уверенно манипулировать строками и измерять их в своем коде. Приятного кодирования!