ルモーリン
ホーム 更新 Perl ランドナー サービス 雑談 コースガイド 鉄ゲタ 自転車 Linux リンク 連絡先

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