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

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

[Alexey Tourbin]

[-- 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 --]

Re: [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)

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

[Alex Ott]

Re all

>Wed, 21 Apr 2004 05:46:51 +0400 Alexey Tourbin <at@altlinux.ru> >> Здравствуйте.
>> А в перле кто-нибудь разбирается?  Нарисовал тут.
>> Смотрю на это и думаю: ы?
>> 
>> package PerlIO::via::gzip;

Вопрос неправильно сформулирован -- правильный вопрос -- "зачем изобретать велосипед, когда есть PerlIO::gzip и Tie::Gzip?" ;-)

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

[Alexey Tourbin]

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

On Thu, Apr 22, 2004 at 09:57:09AM +0400, Alex Ott wrote:
> >> А в перле кто-нибудь разбирается?  Нарисовал тут.
> >> Смотрю на это и думаю: ы?
> >> 
> >> package PerlIO::via::gzip;

> Вопрос неправильно сформулирован -- правильный вопрос -- "зачем
> изобретать велосипед, когда есть PerlIO::gzip и Tie::Gzip?" ;-)

Да (более того, вопрос вообще не сформулирован, если не считать
формулировку "ы" синонимом "для тех, кто понял").

Дело в том, что PerlIO::gzip -- это бинарная привязка к zlib
(частный случай), а Tie::Gzip -- это та же обертка над Compress::Zlib,
которая суть общий случай привязки к zlib.

Недостатки PerlIO::gzip легко отыскивается в README:

	Compression and Decompression are implemented, but not together.
	If you attempt to open a file for reading and writing the open
	will fail.

	Threads - Currenly this module isn't threadsafe as it can't clone an open layer.

	flush() doesn't really flush, just empty the buffer.

Т.е. это Николас Кларк как раз и изобрел велосипед, не велосипед даже,
а так... костыль с колесом.  В мандраке этот костыль с колесом
прикрутили в pp_ctl.c, см. Cooker-SPECS/perl/perl-5.8.0-use_gzip_layer.patch

Т.е. через PerlIO привязку сделать проще и веселее (stacked и т.д.).
Только почему-то никто не делает...

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

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

[Alexey Tourbin]

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

On Thu, Apr 22, 2004 at 08:13:02AM +0400, iLya Bryzgalow wrote:
> Оффтопик смею заметить.
> Мне бы тоже было интересно разобраться с разными вещами, но Сизиф уже
> постепенно превращается в паралель Коммунити.
> Меня самого иногда поправляли, так давайте вместе пойдем... в Коммунити.

А Perl Development Platform вам не нужна?  Тогда вам в community. :)
А мне нужна.  Ну я подумаю...

> -- 
>     _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/ _/     _/
>    _/    iLya Bryzgalow aka iLL        _/    _/     _/
>   _/ Linux-Astronomy-Krasnodar-Russia _/ _/ _/     _/
>  _/        LinuxUser 301257          _/ _/ _/     _/
> _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/ _/_/_/ _/_/_/

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

[sisyphus] JT PDP5 (was: PerlIO::via::gzip)

[Alexey Tourbin]

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

On Sat, Apr 24, 2004 at 10:19:13AM +0400, Alexey Tourbin wrote:
> > Оффтопик смею заметить.
> > Мне бы тоже было интересно разобраться с разными вещами, но Сизиф уже
> > постепенно превращается в паралель Коммунити.
> > Меня самого иногда поправляли, так давайте вместе пойдем... в Коммунити.
> 
> А Perl Development Platform вам не нужна?  Тогда вам в community. :)
> А мне нужна.  Ну я подумаю...

Вы хоть что-нибудь записать успели? Ну вот, пока и довольно с вас...
А в Петушках - в Петушках я обещаю поделиться с вами секретом "Иорданских
струй", если доберусь живым; если милостив Бог.

Педали нужно быстрее крутить, а не костыль с колесом изобретать.

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