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

Обычная идиома для чтения из файла:

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

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

Хотя цикл while неявно проверяет, определен ли результат присваивания, лучше сделать тест явно для ясности.

Answer 2

Я всегда использую:

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

Нет таких проблем ...

Answer 3

Самое быстрое решение - заменить

while ($var ne "")

на

while (defined $var)