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";
    }