document.write('');
document.write('
#!/usr/bin/perl');
document.write('
use strict;
');
document.write('
');
document.write('
my $line;
');
document.write('
my $i=
1;
');
document.write('
');
document.write('
if($
#ARGV == 2){');
document.write('
open (IN,
"<$ARGV[0]") or die "Can\'t open $ARGV[0]";
');
document.write('
');
document.write('
while ($line =
<IN>) {');
document.write('
if($ARGV[1] <=
$i &&
$i <=
$ARGV[2]){');
document.write('
print $line;
');
document.write('
}');
document.write('
$i++;
');
document.write('
}');
document.write('
close(IN
);
');
document.write('
');
document.write('
}else{');
document.write('
print "Usage: $0 infile start_line_number end_line_number\n";
');
document.write('
}');
document.write('
');