Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl -l

...
Block4 Line1
Block4 Line2
Block4 Line3
  2. or download this
    --- One Block ---
Block1 Line1
...
Block4 Line1
Block4 Line2
Block4 Line3
  3. or download this
        $line = $z->getline();
    $line = <$z>;
  4. or download this
    my $z = IO::Uncompress::Bunzip2::->new($filename);

...
        ...        
    }
}