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

[iLya Bryzgalow]

Wed, 21 Apr 2004 05:46:51 +0400 Alexey Tourbin <at на altlinux.ru> сообщил:

> 
> Здравствуйте.
> А в перле кто-нибудь разбирается?  Нарисовал тут.
> Смотрю на это и думаю: ы?
> 
> 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;
> 
Оффтопик смею заметить.
Мне бы тоже было интересно разобраться с разными вещами, но Сизиф уже
постепенно превращается в паралель Коммунити.
Меня самого иногда поправляли, так давайте вместе пойдем... в Коммунити.

-- 
    _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/ _/     _/
   _/    iLya Bryzgalow aka iLL        _/    _/     _/
  _/ Linux-Astronomy-Krasnodar-Russia _/ _/ _/     _/
 _/        LinuxUser 301257          _/ _/ _/     _/
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/ _/_/_/ _/_/_/
i don't smoke, so wish to you!
http://www.krumn.oilnet.ru/
ftp://ftp.krumn.oilnet.ru/
JID://ill@jabber.org
e-mail://ill@krumn.oilnet.ru
kernel-2.6.5-std26-up-alt1 ALT Linux Sisyphus (20040420)