のPerl - ファイルズルズル問題

Question

私は次のコードを実行しています：私は2つの異なるLinux上でこのコードを実行した

a 1 
b 2 
c 3 

：

open my $fh, "<", $file; 

$/ = undef; 
my $report = <$fh>; 
$/ = "\n"; 

close $fh; 

print("$report\n\n"); 

$ファイルは、次のようになりますテキストファイルを参照しますボックス。そのうちの1人が私に期待される出力を与えました（正確にはテキストファイルに表示されています）。もう一つは、代わりに私にこれを与えた：効果的にさらに内容を操作するから私を防ぎ

GLOB(0x80f1174) 

...。

私はPerlのバージョンを確認しました。予想される出力は5.10で、もう1つは5.8です。しかし、これまでの5.8と同様のファイルに対して、まったく同じコードを実行しました。

私はまた、DOSからUNIXへファイルを変換しようとしました：set ff = unix、しかし役に立たない。 $ FHは単にファイルハンドルであるとして

Answer 1

はい、$ FHとして

<$fh> 

を書くには、エラーが発生します。それを印刷することは、参照を印刷することと同等です。以下のコードのように、FHとして書き込むと実行時エラーが発生します。

open FH,$infile or die$!; 
while(<FH>){ 
    @line=split(/,/); 
    if($flag==0){ 
    foreach my $col (@line){ 
     $header{$col}=$count; 
     $count++; 
    } 
} 
} 
close(FH); 

Answer 2

壊れたファイルが

my $report = <$fh>; # aka: readline($fh) 

が含まれていませんおそらくそれは

my $report = $fh; 
my $report = < $fh >; # aka: glob(" $fh ") = " GLOB(0xXXXXXXX) " 
my $report = <$fh >; # aka: glob("$fh ") = "GLOB(0xXXXXXXX) " 
my $report = < $fh>; # aka: glob(" $fh") = " GLOB(0xXXXXXXX)" 

<>が含まれていreadlineかglob（出力ワードGLOBとは無関係）のショートカットです。空白はglobになります。

Answer 3

CPANのFile::Slurpモジュールを使用することをお勧めします。次に、あなたのコードは次のようになります。

use File::Slurp 'read_file'; 
my $file = '/path/to/some/file'; 
my $report = read_file $file; 
print("$report\n\n"); 

はるかに読みやすく、予測可能な、IMO。 、この方法を完了したら、すべての変更がdoブロックに対してローカルな

my $report = do { 
    open my $fh, '<', $file; 
    local $/; 
    <$fh>; 
}; 

：Hercyniumが推奨するよう

Answer 4

一つは、OPはのようなルックスを掲載するものに近いメカニズムをファイル::読まを使用することができますファイルハンドルを閉じることを含む。

N.B. perldoc -f doは本当に機能をBLOCK

をしていない私たちに

を伝えます。 BLOCKで示されたコマンドの シーケンスの最後のコマンドの値を返します。

最後に実行されたステートメントのコンテキストは、do block（ここではスカラー）のコンテキストです。私はdoブロックが非常に有用であることを発見しました。彼らは字句の実行をブロックするのに最適ですが、何かを外側のスコープに簡単に戻すことができます。