Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Do Storable and IO::Zlib like to play together?

by fokat (Deacon)
on Nov 03, 2005 at 16:43 UTC ( [id://505431]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    
    eval     { nstore($rep, $file) || warn "Storable::nstore failed with $
    +!\n"; };
    if ($@) { warn "Failed to store the object: $@\n"; }
    
  2. or download this
        if ($path =~ m/\.gz$/)    { $fh = new IO::Zlib }
        else            { $fh = new IO::File }
    ...
        $rep = fd_retrieve($fh);
    
        close $fh;
    
  3. or download this
    my $fh = IO::File->new("gunzip $file |");
    
  4. or download this
    $ find /usr/lib/perl* -type f -name Zlib.pm -o -name Storable.pm | xar
    +gs egrep -i '\$version = '
    /usr/lib/perl5/5.8.5/i386-linux-thread-multi/Storable.pm:$VERSION = '2
    +.15';
    /usr/lib/perl5/5.8.5/Memoize/Storable.pm:$VERSION = 0.65;
    /usr/lib/perl5/site_perl/5.8.5/IO/Zlib.pm:$VERSION = "1.04";
    /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Compress/Zlib.p
    +m:$VERSION = "1.41" ;
    
  5. or download this
    sub AUTOLOAD
    {
    ...
    
        return tied(*{$self})->$AUTOLOAD(@_); # line 566
    }
    
  6. or download this
    sub fd_retrieve {
        my ($file) = @_;
        my $fd = fileno($file); # <== THIS IS THE CALL
    ...
        $@ = $da;
        return $self;
    }
    
  7. or download this
        $ctx->throw('Abuse.open',
            "Problem opening Abuse report: $!")
        unless $fh->open($path, ($path =~ /\.gz$/? "<:gzip" : "<"));
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://505431]
Approved by larryp
Front-paged by Roy Johnson
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2024-03-29 05:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found