Привет, уважаемый энтузиаст Perl! Сегодня мы собираемся погрузиться в удивительный мир методов Perl. Если вы новичок в Perl или просто хотите расширить свои знания, эта статья для вас. Мы рассмотрим ряд методов, которые помогут вам писать более эффективный и мощный код Perl. Так что пристегнитесь и начнем!

1. Манипуляция строк:
   Perl предоставляет широкий набор методов для работы со строками. Взгляните на эти удобные примеры:

my $str = "Hello, World!";
# Length of a string
my $length = length($str);
print "Length of the string: $length\n";
# String concatenation
my $concatenated = $str . " Welcome!";
print "Concatenated string: $concatenated\n";
# String substitution
$str =~ s/World/Universe/;
print "Substituted string: $str\n";

1. Обработка файлов:
   Perl упрощает работу с файлами. Вот несколько способов, которые помогут вам читать и записывать файлы:

# Opening a file for reading
open(my $file, '<', 'filename.txt') or die "Could not open file: $!";
# Reading file contents
while (my $line = <$file>) {
    chomp $line;
    print "Line: $line\n";
}
# Opening a file for writing
open(my $output, '>', 'output.txt') or die "Could not open file: $!";
# Writing to a file
print $output "Hello, Perl!";
close $output;

1. Регулярные выражения.
   Поддержка регулярных выражений в Perl не имеет себе равных. Ознакомьтесь с этими примерами эффективного сопоставления с образцом:

my $str = "The quick brown fox jumps over the lazy dog.";
# Matching a pattern
if ($str =~ /fox/) {
    print "Pattern 'fox' found!\n";
}
# Extracting substrings
if ($str =~ /quick (brown)/) {
    my $match = $1;
    print "Matched substring: $match\n";
}
# Global pattern matching
my @matches = $str =~ /(\w+)/g;
print "All matches: @matches\n";

1. Манипуляция списками:
   Perl предоставляет универсальные методы работы со списками. Посмотрите эти примеры:

my @fruits = ("apple", "banana", "orange");
# Length of an array
my $length = scalar @fruits;
print "Length of the array: $length\n";
# Accessing elements
my $first_fruit = $fruits[0];
print "First fruit: $first_fruit\n";
# Adding an element
push @fruits, "pear";
print "Updated array: @fruits\n";

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

Не забывайте экспериментировать и изучать документацию Perl, чтобы открыть для себя еще более удивительные методы. Приятного кодирования!

Надеюсь, эта статья оказалась для вас информативной и интересной. Не стесняйтесь обращаться, если у вас возникнут дополнительные вопросы. Приятного кодирования!