Question

I have a small piece of code for printing the contents in a text file like this,

use strict;
use warnings;

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

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

Text file is,

line 1
line 2
line 3 

After running the code i am getting a warning like this,

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

How to overcome this warning.

Answer 1

I always use:

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

No such problems…