몇 분 전까지 만해도 Perl의 $
은 모든 종류의 줄 끝과 일치한다고 생각했습니다. 불행히도, 내 가정은 틀린 것으로 드러났다.
다음 스크립트는 끝이라는 단어를 $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";
는하지만 난 $
적어도 chr(13).chr(10)
일치하는 경우를 본 적이 거의 75 % 확신합니다.
따라서 정확히 $
아톰이 일치합니까? \n
/chr(10)
하지 전에 \r
/chr(13)
전에
': crlf' 모드에서 파일을 읽었을 수 있습니다. 따라서 파일에'chr (13) .chr (10)'이 있지만 일치하는 문자열에는'chr (10)'만있었습니다. – cjm