Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -w
    
    use strict;
    ...
    bar
    Judge my vow, sphinx of black quartz
    __END__
    
  2. or download this
    +--------------------------------------------------+------------------
    ++
    | 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  | 0123456789ABCDEF 
    +|
    +--------------------------------------------------+------------------
    ++
    ...
    | 28 2C 4D 2C 2A A9 E2 02 00 7B AE 4A 0D 2D 00 00  | (,M,*®Ô..{«J.-.. 
    +|
    | 00                                               | .                
    +|
    +--------------------------------------------------+------------------
    ++
    
  3. or download this
    +--------------------------------------------------+------------------
    ++
    | 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  | 0123456789ABCDEF 
    +|
    +--------------------------------------------------+------------------
    ++
    ...
    | 4F 53 48 CA 49 4C CE 56 28 2C 4D 2C 2A A9 E2 02  | OSH-IL+V(,M,*®Ô. 
    +|
    | 00 66 87 0F C8                                   | .fç +            
    +|
    +--------------------------------------------------+------------------
    ++
    
  4. or download this
    $gz = gzopen( $file, 'rb' ) or die "Cannot open $file for gzread: $gze
    +rrno\n";
    while( $gz->gzreadline($line) > 0 ) {
            print $line;
    }
    die "Error reading from $file: [$gzerrno]\n" unless Z_STREAM_END == $g
    +zerrno;
    $gz->gzclose();