如何避免Perl中的警告？

Question

我有一个小小的一段代码在这样一个文本文件打印的内容，

use strict; 
use warnings; 

open (FILE, "2.txt") || die "$!\n"; 

my $var = <FILE>; 
while ($var ne "") 
{ 
    print "$var"; 
    $var = <FILE>; 
} 

文本文件，

line 1 
line 2 
line 3 

运行我收到这样的警告的代码后，

line 1 
line 2 
line 3 
Use of uninitialized value $var in string ne at del.pl line 10, <FILE> line 3. 

如何克服此警告。

Answer 1

我总是用：

while(<FILE>) { 
print $_; 
} 

没有这样的问题...

Answer 2

最快的解决方法是可能取代

while ($var ne "") 

与

while (defined $var) 

Answer 3

常见的成语从文件中读取数据是这样的：

open my $fh, '<', $file or die $!; 

while (defined(my $line = <$fh>)) { 
    print $line, "\n"; 
} 

虽然while循环隐含测试对于赋值的结果是否定义，最好做这个明确测试以确保清晰。