ALT Linux Sisyphus discussions
 help / color / mirror / Atom feed
* [sisyphus] Q: PerlIO::via::gzip
@ 2004-04-21  1:46 Alexey Tourbin
  2004-04-22  4:13 ` iLya Bryzgalow
  0 siblings, 1 reply; 6+ messages in thread
From: Alexey Tourbin @ 2004-04-21  1:46 UTC (permalink / raw)
  To: Sisyphus

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

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: [sisyphus] Q: PerlIO::via::gzip
  2004-04-21  1:46 [sisyphus] Q: PerlIO::via::gzip Alexey Tourbin
@ 2004-04-22  4:13 ` iLya Bryzgalow
  2004-04-22  5:57   ` Alex Ott
  2004-04-24  6:19   ` Alexey Tourbin
  0 siblings, 2 replies; 6+ messages in thread
From: iLya Bryzgalow @ 2004-04-22  4:13 UTC (permalink / raw)
  To: ALT Linux Sisyphus discussion list

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)


^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: [sisyphus] Q: PerlIO::via::gzip
  2004-04-22  4:13 ` iLya Bryzgalow
@ 2004-04-22  5:57   ` Alex Ott
  2004-04-24  6:17     ` [sisyphus] " Alexey Tourbin
  2004-04-24  6:19   ` Alexey Tourbin
  1 sibling, 1 reply; 6+ messages in thread
From: Alex Ott @ 2004-04-22  5:57 UTC (permalink / raw)
  To: sisyphus

Re all

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

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


^ permalink raw reply	[flat|nested] 6+ messages in thread

* [sisyphus] Re: Q: PerlIO::via::gzip
  2004-04-22  5:57   ` Alex Ott
@ 2004-04-24  6:17     ` Alexey Tourbin
  0 siblings, 0 replies; 6+ messages in thread
From: Alexey Tourbin @ 2004-04-24  6:17 UTC (permalink / raw)
  To: sisyphus

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

^ permalink raw reply	[flat|nested] 6+ messages in thread

* [sisyphus] Re: Q: PerlIO::via::gzip
  2004-04-22  4:13 ` iLya Bryzgalow
  2004-04-22  5:57   ` Alex Ott
@ 2004-04-24  6:19   ` Alexey Tourbin
  2004-04-24 14:25     ` [sisyphus] JT PDP5 (was: PerlIO::via::gzip) Alexey Tourbin
  1 sibling, 1 reply; 6+ messages in thread
From: Alexey Tourbin @ 2004-04-24  6:19 UTC (permalink / raw)
  To: ALT Linux Sisyphus discussion list

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

^ permalink raw reply	[flat|nested] 6+ messages in thread

* [sisyphus] JT PDP5 (was: PerlIO::via::gzip)
  2004-04-24  6:19   ` Alexey Tourbin
@ 2004-04-24 14:25     ` Alexey Tourbin
  0 siblings, 0 replies; 6+ messages in thread
From: Alexey Tourbin @ 2004-04-24 14:25 UTC (permalink / raw)
  To: ALT Linux Sisyphus discussion list

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

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2004-04-24 14:25 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-04-21  1:46 [sisyphus] Q: PerlIO::via::gzip Alexey Tourbin
2004-04-22  4:13 ` iLya Bryzgalow
2004-04-22  5:57   ` Alex Ott
2004-04-24  6:17     ` [sisyphus] " Alexey Tourbin
2004-04-24  6:19   ` Alexey Tourbin
2004-04-24 14:25     ` [sisyphus] JT PDP5 (was: PerlIO::via::gzip) Alexey Tourbin

ALT Linux Sisyphus discussions

This inbox may be cloned and mirrored by anyone:

	git clone --mirror http://lore.altlinux.org/sisyphus/0 sisyphus/git/0.git

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V2 sisyphus sisyphus/ http://lore.altlinux.org/sisyphus \
		sisyphus@altlinux.ru sisyphus@altlinux.org sisyphus@lists.altlinux.org sisyphus@lists.altlinux.ru sisyphus@lists.altlinux.com sisyphus@linuxteam.iplabs.ru sisyphus@list.linux-os.ru
	public-inbox-index sisyphus

Example config snippet for mirrors.
Newsgroup available over NNTP:
	nntp://lore.altlinux.org/org.altlinux.lists.sisyphus


AGPL code for this site: git clone https://public-inbox.org/public-inbox.git