改行をCR(0x0d)で出力2
投稿:2019-04-17
前回の改行をCR(0x0d)で出力 - Perl - ルモーリンでは、
出来合いを見つけられずに自作しましたけれど、その後でようやく見つかりました。
PerlIO::eol - PerlIO layer for normalizing line endings - metacpan.org
#!/usr/bin/env perl -w
use strict;
use warnings;
use utf8;
use feature "say";
use Encode::Argv;
use Encode::Locale;
use FindBin;
use lib $FindBin::Bin;
use open IO => ":utf8";
binmode STDIN, ":encoding(console_in)";
binmode STDOUT, ":encoding(console_out)";
$| = 1;
if (open my $fh, "> :eol(CR) :utf8", "sample_92.txt") {
print $fh "たこルカは俺の嫁\n";
close $fh;
}
16進ダンプでご覧ください、文字コードはUTF-8です。
00000000 E3 81 9F E3 81 93 E3 83 AB E3 82 AB E3 81 AF E4 00000010 BF BA E3 81 AE E5 AB 81 0D
