Zna się ktoś na prel'u ? -- powinno być: zepsuty perl ?

[Przemysław Iskra]

On Sun, Dec 12, 2004 at 04:53:55PM +0100, Paweł Żurowski wrote:

> > 	open F_IN, "$file";
> > 	while (<F_IN>) {
> > 		print "$_";
> > 		#last;
> > 	}
> > 	close F_IN;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
tu siedzi sedno, to z dołu można by jakąkolwiek pętlą z numerkami
zastąpić

> > 
> > my $specdir="/home/users/sparky/pld-cvs/SPECS";
> > opendir DIR, "$specdir";
> > foreach( sort readdir DIR ) {
> > 	next unless /.spec$/;
> > 	decomposespec("$specdir/metisse.spec");
> > }
> > closedir DIR;

> 
> przy zalozeniu, ze tam nie pownno byc "$specdir/metisse.spec", a $_
> (albo $specdir/$_), to:
> bez lasta wyglada mi to na cos w stylu
>         ls /home/users/sparky/pld-cvs/SPECS|grep "spec$"|xargs cat
> a z lastem na:
>         ls /home/users/sparky/pld-cvs/SPECS|grep "spec$"|xargs head -qn
>         1

w tym przykładnie _POWINNO_ tam być np. metisse aby się upewnić że nie
cachuje każdego pliku z osobna, a przecież nie będzie (nie powinien)
cachować jednego pliku 8tys. razy ?

ja wiem co program daje :)

chodzi poprostu o to ogromne zużyucie pamięci i dlaczego występuje przy
'while' a przy 'foreach' nie ?

-- 
 ____  Sparky{PI] -- Przemyslaw _  ___  _  _  ..Mail,MSN  LANG...Pl..Ca..Es..En
/____) ___  ___  _ _ || Iskra  |  | _ \| |  | : GG...3228100  WWW..NotYetAvible
\____\| -_)'___| ||^'||//\\// <   |  _/| |  | : JID......sparky<at>jabberes.org
(____/||   (_-_|_||  ||\\ ||   |_ |_|  |_| _| :..sparky<at>sparky.homelinux.org