Help for this page

Select Code to Download

Select or download this

$a=1;
$b=2;
...
    while ($line = &lt;INFILE>)    {
        chomp($line);   # contains $a, $b
        print "$line\n"; #prints "$a" "$b"