行末改行の削除

概要

  • ファイルを読み込み、行末改行を一括削除する。
  • 「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

リロード   新規 下位ページ作成 編集 凍結 差分 添付 コピー 名前変更   ホーム 一覧 検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: Sun, 04 Dec 2011 19:22:34 JST (2332d)