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);
    
    ...
            ...        
        }
    }