Работа с текстом в Perl

Perl является мощным инструментом для работы с текстом. Ниже приведены некоторые примеры того, как можно использовать Perl для работы с текстом.

1. Считывание строки

Для считывания строки из стандартного ввода используйте функцию <STDIN>:

my $str = <STDIN>; # считать строку

print $str; # вывести строку

2. Замена текста

Функция s/// позволяет заменить один текст на другой в строке:

my $str = "Hello World!";

$str =~ s/World/Perl/; # заменить World на Perl

print $str; # вывести строку

3. Разделение строки

Чтобы разделить строку на подстроки, используйте функцию split():

my $str = "one, two, three";

my @parts = split(/, /, $str); # разделить строку по запятым и пробелам

foreach my $part (@parts) {

print "$part\n"; # вывести каждую подстроку

}

4. Поиск текста

Для поиска текста в строке используйте функцию index():

my $str = "Hello World!";

my $pos = index($str, "World"); # найти позицию подстроки "World"

print "$pos\n"; # вывести позицию

5. Регулярные выражения

Perl поддерживает регулярные выражения для работы с текстом. Ниже приведен пример поиска всех цифр в строке:

my $str = "Hello 123 World!";

my @digits = $str =~ /\d+/g; # найти все цифры в строке

foreach my $digit (@digits) {

print "$digit\n"; # вывести каждую цифру

}

Это только небольшая часть возможностей Perl при работе с текстом. Perl также поддерживает множество других функций и операций для работы с текстом.