From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <ill@krumn.oilnet.ru>
Date: Thu, 22 Apr 2004 08:13:02 +0400
From: iLya Bryzgalow <ill@krumn.oilnet.ru>
To: ALT Linux Sisyphus discussion list <sisyphus@altlinux.ru>
Subject: Re: [sisyphus] Q: PerlIO::via::gzip
Message-Id: <20040422081302.5c69cfac.ill@krumn.oilnet.ru>
In-Reply-To: <20040421014651.GE19324@solemn.turbinal.org>
References: <20040421014651.GE19324@solemn.turbinal.org>
Organization: KRUMN
X-Mailer: Sylpheed version 0.9.10 (GTK+ 1.2.10; i586-alt-linux-gnu)
Mime-Version: 1.0
Content-Type: text/plain; charset=KOI8-R
Content-Transfer-Encoding: 8bit
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.1.4
Precedence: list
Reply-To: ALT Linux Sisyphus discussion list <sisyphus@altlinux.ru>
List-Id: ALT Linux Sisyphus discussion list <sisyphus.altlinux.ru>
List-Unsubscribe: <http://lists.altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/sisyphus>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://lists.altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Thu, 22 Apr 2004 04:12:49 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/20040422081302.5c69cfac.ill@krumn.oilnet.ru/>
List-Archive: <http://lore.altlinux.org/sisyphus/>

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)