Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
until(grep !defined, my @details = map scalar <$fh>, 1 .. 4) {
    print @details, "\n";
}
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
    print @details, "\n";
    @details = ();
}
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
while(my @details = read_lines($fh, 4)) {
    print @details, "\n";
}