Linuxで改行がCRLFのファイルを読み書き

2019-02-17

きっかけ

Linuxで、Windowsで作成された「\r\n」のファイルを読み書きするには?

みんな悩むよね。

読むとき。行入力セパレータを「\r\n」にします

local $/ = "\r\n";

これで、<$fh>とchompが正しく動く

書くとき、binmodeにして「\r\n」書く

binmode $fh;
print "$text\r\n";

読み書きで別物だから注意

— Perlゼミ (@perlzemi) 2019年2月7日

Perlにおんぶに抱っこしてみる

コード

#!/usr/bin/env perl -w

use utf8;
use strict;
use warnings;

use Encode::Locale;

use feature "say";

binmode STDIN, ":encoding(console_in)";
binmode STDOUT, ":encoding(console_out)";

$| = 1;

my @line;
if (open my $fh, "< :utf8 :crlf", "sample_69_in.txt") {
	while (<$fh>) {
		chomp;
		say;
		push @line, $_;
	}

	close $fh;
}

if (open my $fh, "> :utf8 :crlf", "sample_69_out.txt") {
	for (@line) {
		say $fh $_;
	}

	close $fh;
}

実行結果

本日は晴天なり
たこルカは俺の嫁