Как я могу избежать предупреждений в 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 неявно проверяет для определения того, задан ли результат назначения, лучше сделать для ясности явно.