[Moscow.pm] POE::Filter::Line

[Ruslan Zakirov]

п²п╟п╠я─п╬я│п╟п╩ п╠п╣п╫я┤п╪п╟я─п╨, п╫п╬ я┌п╬п╩я▄п╨п╬ п©я─п╬я│я┌п╣п╫я▄п╨п╦п╧ п╦ п©п╬я│п╩п╣п╢п╫я▐я▐ п╡п╣я─я│п╦я▐ п╡ я│п╩п╟п╧п╢п╟я┘
п╠я▀п╩п╟ я│п╬п╡п╣я─я┬п╣п╫п╫п╬ п╢я─я┐пЁп╬п╧. п²п╟п╢п╣я▌я│я▄ п©п╬п╢п©я─п╟п╡п╦я┌п╣ п╦ п╡п╣я─п╫п╣я┌п╣ п╫п╟п╥п╟п╢ я┤я┌п╬п╠я▀ я▐ п╪п╬пЁ
п╡п╟я─п╦п╟п╫я┌я▀ ss1 п╦ ss2 п©я─п╦п╡п╣я│я┌п╦ п╨ п╣п╢п╦п╫п╬п╪я┐ п╡п╟я─п╦п╟п╫я┌я┐ п╬я┌п╡п╣я┌п╟, п©п╬п╨п╟ п╬п╫п╦
п╬я┌п╩п╦я┤п╟я▌я┌я│я▐.

amd64, gentoo, system malloc.

       Rate   re  ss2  ss1
re   6381/s   -- -51% -81%
ss2 12961/s 103%   -- -62%
ss1 34367/s 439% 165%   --


2008/3/17 Ivan B. Serezhkin <ivan на serezhkin.com>:
> п÷я─п╦п╡п╣я┌.
>  п°п╬п╤п╣я┌ п╨п╬п╪я┐ п╦ п╦п╫я┌п╣я─п╣я│п╫п╬ ?
>  п©п╬п╩я┐я┤п╦п╩ п©я─п╦я─п╬я│ п╡ 25 я─п╟п╥ п╫п╟ п╠п╬п╩я▄я┬п╦я┘ я└п╟п╧п╩п╟я┘.
>  п°п╬п╤п╣я┌п╣ п©п╬я─я┐пЁп╟я┌я▄ я│я┌п╦п╩я▄ =)
>  п²п╟ п╬я┤п╣я─п╣п╢п╦ я│п╢п╣п╩п╟я┌я▄ п╫п╬я─п╪п╟п╩я▄п╫я▀п╧ п╠я▀я│я┌я─я▀п╧ п╢я─п╟п╧п╡п╣я─.
>  п≤ п╨я│я┌п╟я┌п╦, я█я┌п╬ я┐п╢п╬п╠п╫я▀п╧ я┌п╣п╪п©п╩п╣п╧я┌ п╢п╩я▐ п╫п╟п©п╦я│п╟п╫п╦я▐ я│п╡п╬п╦я┘ я└п╦п╩я▄я┌я─п╬п╡, п╫п╟п©я─п╦п╪п╣я─
>  POE::Filter::Log::Postfix =)
>  п≤я│п©п╬п╩я▄п╥п╬п╡п╟я┌я▄ я┌п╟п╨:
>
>  Wheel ...
>  Driver => POE::Driver::SysRW->new( BlockSize => 256*1024*1024) ,
>  Filter => POE::Filter::Regexp->new(qr/RecordSeparator/),
>  ....
>
>
>
>  package POE::Filter::Regexp;
>  use strict;
>
>  sub new {
>  my ($class,$re)=@_;
>  $re ||= qr/\n/;
>  die "Param in new must be a Regexp but this is a ".ref($re) unless ref
>  $re eq 'Regexp';
>  return bless [
>  '', # raw unparsed data
>  [], # ready queue
>  $re,
>  ], $class;
>  }
>
>  sub get {
>  my ($self, $stream) = @_;
>  my @ret;
>  while($self->[0].=shift @$stream){
>  my $p=0;
>  while($self->[0]=~/$self->[2]/g) {
>  next unless $-[0]; #begin of stream
>  push @ret, substr($self->[0], $p, $-[0]-$p);
>  $p=$-[0];
>  }
>  substr($self->[0], 0, $p)=undef;
>  }
>  return \@ret;
>  }
>  1;
>
>  --
>  Ivan B. Serezhkin
>
>  --
>  Moscow.pm mailing list
>  moscow-pm на pm.org | http://moscow.pm.org
>  http://mail.pm.org/mailman/listinfo/moscow-pm



-- 
Best regards, Ruslan.
----------- следущая часть -----------
п▓п╩п╬п╤п╣п╫п╦п╣ п╫п╣ п╡ я┌п╣п╨я│я┌п╬п╡п╬п╪ я└п╬я─п╪п╟я┌п╣ п╠я▀п╩п╬ п╦п╥п╡п╩п╣я┤п╣п╫п╬&hellip;
п≤п╪я▐     : poe_filter_split.pl
п╒п╦п©     : application/x-perl
п═п╟п╥п╪п╣я─  : 1978 п╠п╟п╧я┌п╬п╡
п·п©п╦я│п╟п╫п╦п╣: п╬я┌я│я┐я┌я│я┌п╡я┐п╣я┌
Url     : http://mail.pm.org/pipermail/moscow-pm/attachments/20080329/62458892/attachment.bin