Help for this page

Select Code to Download


  1. or download this
    open(INFILE, $filename) or die "Can't open $filename: $!";
my @lines = <INFILE>;
my @chapters;
$chapters[1] = @lines[0 .. 55];
$chapters[2] = @lines[56 .. 112];
  2. or download this
    @chapter1 = @lines[0 .. 55];
@chapter2 = @lines[56 .. 112];