概要

行末改行の削除

• ファイルを読み込み、行末改行を一括削除する。
• 「CRLF」「LF」のどちらでも対応できるようにする。

ソースコード

use strict;
use utf8;

my $fin = "input.txt";

my @file;

open( IN, "<:utf8", $fin ) || die( "can't open '" . $fin . "'.\n" );
@file = <IN>;
close( IN );

$file[ 0 ] =~ /(\s+)$/;
$/ = $1;
chomp( @file );

# 実際の処理

# EOF