[SP-pm] Tempo (grande!) de liberação de memoria no perl

[Daniel de Oliveira Mantovani]

2010/9/28 Renato Santos <renato.cron em gmail.com>:
> O código pra chamar o filho ta assim:
>
>         $rotinas->log("Chamando perl para processar match name com o HEXs "
> . (join(', ', @$grp)));
>         my $param = {
>             id_file => $param->{id_file},
>             letras  => $grp
>         };
>         my $serialize = &ascii_to_hex($rotinas->fastObjToJson($param));
>
>         my $cmd = "perl -I/projetos/libs importador_dedup_lote.pl $serialize
> 1>$serialize.log 2>&1";
>         print ">>> $cmd\n\n";
>         `$cmd`;
>         open(X, '<', "$serialize.log");
>         my @logs = ();
>         while (<X>){
>             print "\t$_";
>             push(@logs, $_);
>         }
>         close(X);
>         print "\n";
>
>
> Tenho certeza que não chegou no "open"
>

Esse foi o único pedaço do seu e-mail que eu entendi alguma coisa. Se
você tem certeza que não está chegando no open
é porque o `$cmd` não está terminando a execução. Cara, porque você
não usa módulos ao invés de fazer isso ?

>
>
> Alguma sugestão?
>
> --
> Renato Santos
> http://www.renatocron.com/blog/
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
http://www.danielmantovani.com

"If you’ve never written anything thoughtful, then you’ve never had
any difficult, important, or interesting thoughts. That’s the secret:
people who don’t write, are people who don’t think."