До нескольких минут назад я считал, что Perl $
соответствует любому типу конца строки. К сожалению, мое предположение оказывается неправильным.
Следующий script удаляет конец слова только для $string3
.
use warnings;
use strict;
my $string1 = " match to the end" . chr(13);
my $string2 = " match to the end" . chr(13) . chr(10);
my $string3 = " match to the end" . chr(10);
$string1 =~ s/ end$//;
$string2 =~ s/ end$//;
$string3 =~ s/ end$//;
print "$string1\n";
print "$string2\n";
print "$string3\n";
Но я почти на 75% уверен, что видел случаи, когда $
соответствует не менее chr(13).chr(10)
.
Итак, что именно (и при каких обстоятельствах) соответствует атому $
?