Perlで改行コードがCRのファイルを読み込む方法

Perlで改行コードがCRのファイルを読み込む方法

Posted at October 25,2016 12:03 AM
Tag:[Perl]

Perlで改行コードがCRのファイルを読み込む方法を紹介します。

1.問題点

改行コードがCRのファイル「test.txt」があるとします。

てすと1
てすと2
てすと3
てすと4
てすと5

このファイルを次のPerlスクリプトで読み込んでも正常に処理されません。

#!/usr/bin/perl
use strict;
 
open my $fh, "test.txt";
foreach my $line (<$fh>) {
    print;
}

このスクリプトを実行すると、次のようになります。

C:\tmp>perl test.pl
てすと5

ということで、改行コードがCRのファイルを読み込む方法を紹介します。

2.改行コードがCRのファイルを読み込む

改行コードがCRのファイルを読み込むには、特殊変数"$/"を利用します。

#!/usr/bin/perl
use strict;
 
open my $fh, "test.txt";
local $/ = "\r";
foreach my $line (<$fh>) {
    print "$line\n";
}

"$/"は入力時の区切り文字を指定する特殊変数です。右辺の"\r"は改行コードがCRであることを示します。

このスクリプトを実行すると、次のように正常に処理されます。

C:\tmp>perl test.pl
てすと1
てすと2
てすと3
てすと4
てすと5

local変数のスコープを局所化したい場合、次のようにするとよいでしょう。

#!/usr/bin/perl
use strict;
 
my @data;
open my $fh, "./test.txt";
{
    local $/ = "\r";
    @data = <$fh>;
}
foreach my $line (@data) {
    print "$line\n";
}

このコードの実行結果は先ほどと同じです。

関連記事
zenback
人気エントリー
トラックバックURL


コメントする
greeting

*必須

*必須(非表示)


ご質問のコメントの回答については、内容あるいは多忙の場合、1週間以上かかる場合があります。また、すべてのご質問にはお答えできない可能性があります。予めご了承ください。

太字イタリックアンダーラインハイパーリンク引用
[サインインしない場合はここにCAPTCHAを表示します]

コメント投稿後にScript Errorや500エラーが表示された場合は、すぐに再送信せず、ブラウザの「戻る」ボタンで一旦エントリーのページに戻り(プレビュー画面で投稿した場合は、投稿内容をマウスコピーしてからエントリーのページに戻り)、ブラウザをリロードして投稿コメントが反映されていることを確認してください。

コメント欄に(X)HTMLタグやMTタグを記述される場合、「<」は「&lt;」、「>」は「&gt;」と入力してください。例えば「<$MTBlogURL$>」は「&lt;$MTBlogURL$&gt;」となります(全て半角文字)