[sisyphus] Q: PerlIO::via::gzip

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 485 bytes --]

Здравствуйте.
А в перле кто-нибудь разбирается?  Нарисовал тут.
Смотрю на это и думаю: ы?

package PerlIO::via::gzip;

use Compress::Zlib qw(gzopen);
use strict;

sub PUSHED {
	my $class = shift;
	bless \my $self, $class;
}

sub FILL {
	my ($self, $fh) = @_;
	$$self ||= gzopen($fh, "r");
	my $n = $$self->gzreadline(my $line);
	$n > 0 ? $line : undef;
}

sub WRITE {
	my ($self, $buf, $fh) = @_;
	$$self ||= gzopen($fh, "w");
	$$self->gzwrite($buf);
}

1;

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]