#Files - Answer to exercise 1
$n = $ARGV[0]; $filename = $ARGV[1]; open FILE,"<$filename" or die "Cannot read $filename: $!\n"; $i = 0; while ($line = <FILE>) { $i = $i + 1; if ($i <= $n) { print $line; } }
Compare with Python
Quick Links | Home | Courses | Software | Contact
Copyright Information | Report a problem I Privacy