Help for this page

Select Code to Download

Select or download this

while ( <$fi> ) {
    #print "$_";
...
}

close $fi;

Select or download this

perl readwritefile.pl
Use of uninitialized value $a in print at readwritefile.pl line 15, <$
+fi> line 1.
Use of uninitialized value $a in print at readwritefile.pl line 15, <$
+fi> line 2.
Use of uninitialized value $a in print at readwritefile.pl line 15, <$
+fi> line 3.