#Files - Answer to exercise 2

$n = [0];
$filename = [1];

open FILE,"<$filename" or die "Cannot read $filename: \n";

$nlines = 0;

while ($line = <FILE>)
{
    $nlines = $nlines + 1;
}

open FILE,"<$filename" or die "Cannot read $filename: \n";

$i = 0;

while ($line = <FILE>)
{
    $i = $i + 1;

    if ($i > $nlines - $n)
    {
        print $line;
    }
}

Compare with Python


Previous Up Next