改行を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