Perl tips

[Михайло Даниленко]

1. Як би дивно воно не виглядало, це працює:

my $aa = "qw123iop";
substr ($aa, 2, 3) = "ertyu";

[Михайло Даниленко]

2. Не забувайте не використовувати $&, $` та $'.

[Михайло Даниленко]

Можливо це не дуже потрібна функція, але іноді може дещо спростити код

my $aa = "a";
$aa++;
print "'$aa'\n";
#'b'
$aa = "z9";
$aa++;
print "'$aa'\n";
#'aa0'

Щоправда, -- у п'ятому перлі так не працює

[Михайло Даниленко]

Надибав на look-behind довільної довжини:

# Розбиває рядок на слова, дозволяючи включати пробіли за допомогою \
s/^\s+//o;
my @a = split /(?:^|[^\\])(?:\\\\)*\K\s+/o, $_;
    @a = map { s/\\(.)/$1/go; $_ } @a;


Є (?<=expr), але воно працює лише якщо expr має фіксовану довжину. Натомість \K вказує перлу продовжувати перевірку виразу, але не включати того, що вже перевірено до кінцевого результату ($&).