#Files - Answer to exercise 3
$start = $ARGV[0];
$end = $ARGV[1];
$filename = $ARGV[2];
open FILE,"<$filename" or die "Cannot read $filename: $!\n";
#read all of the lines into an array
$i = 0;
while ($line = <FILE>)
{
$i = $i + 1;
$lines[$i] = $line;
}
if ($start <= $end)
{
for ($i = $start; $i <= $end; $i = $i + 1)
{
print $lines[$i];
}
}
else
{
for ($i = $start; $i >= $end; $i = $i - 1)
{
print $lines[$i];
}
}