मुझे "ऑटोडी" के बाद एक अलग आउटपुट क्यों मिलता है?क्या autodie-pragma एन्कोडिंग पर प्रभाव डालता है?
#!/usr/bin/env perl
use warnings;
use 5.012;
use utf8;
use open ':encoding(utf-8)';
use open ':std';
open my $fh, '>', 'test.txt' or die $!;
say $fh 'käse';
close $fh;
open my $fh1, '<', 'test.txt' or die $!;
while (my $row = readline($fh1)) {
print $row;
}
close $fh1;
use autodie;
open my $fh2, '<', 'test.txt';
while (my $row = readline($fh2)) {
print $row;
}
close $fh2;
# Output:
# käse
# käse
मैंने बस उस बग के लिए एक पैच काम किया। https://github.com/pfenwick/autodie/pull/12 – Schwern