Kiss Gabor wrote:
> Kellene egy gyors otlet arra, hogy PERL-ben hogy lehet a legyorsabban
> felcserelgetni par egymillio byte-ot.
Ebben nem igazán erős a PERL.
> A jelenleg hasznalt
> $blob =~ s/(.)(.)(.)/$3$2$1/g;
> konstrukcio kb. masfel masodpercig molyol.
> Ez tul sok. 0.2 s ala kellene leszoritani.
>
> Otletek?
Ez nagyon elegáns megoldás, de nem igazán jó a teljesítménye. Én a
helyedben megpróbálnám tömbként kezelni a képet és úgy cserélgetni az
elemeket.
Ez szerintem gyorsabb lesz:
for ($i=0; $i<$n; $i+=3 )
{
$x = $tomb[$i];
$tomb[$i] = $tomb[$i+2];
$tomb[$i+2] = $x;
}
Üdv
Fari
_________________________________________________
linux lista - linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux
