Help for this page

Select Code to Download


  1. or download this
    
my $fh = new IO::Uncompress::Gunzip "input file",
    or die "Cannot open file ..." ;

my $line = <$fh> ;
  2. or download this
    
my $fh = new IO::Uncompress::Gunzip "input file",
...
    or die "Cannot open file ..." ;

my $line = <$fh> ;
  3. or download this
    sub rewind
{
...
}

rewind($fh, "somefile");