Perlで改行コードがCRのファイルを読み込む方法
小粋空間 » Programming Language » Perl » Perlで改行コードがCRのファイルを読み込む方法
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";
}
このコードの実行結果は先ほどと同じです。