Rawley Fowler's questions

Tenho um programa muito grande que grava muitas coisas em STDOUT, e gostaria de poder enviar toda essa saída para STDOUTe para um FILE. Decidi usar IO::Teepara criar o identificador gravável compartilhado:

use IO::Tee;

pipe(my $reader, my $writer);
my $new_stdout = IO::Tee->new(\*STDOUT, $writer);

*{STDOUT} = $new_stdout;

print "foo";

print(do { local $\; <$reader> }); 

No entanto, isso causa uma recursão profunda e trava o programa. Então, em vez disso, não consigo referenciar *STDOUT, e ele cria:

use IO::Tee;

pipe(my $reader, my $writer);
my $new_stdout = IO::Tee->new(*STDOUT, $writer);

*{STDOUT} = $new_stdout;

print "foo";

print(do { local $\; <$reader> });

Isso cria o aviso: Undefined value assigned to typeglob at ... line 42, e quando eu uso Data::Printerpara descrever $new_stdout, é undef. Como posso fazer isso?

Estou escrevendo uma biblioteca que utiliza muitos módulos que chamam Net::Http::Methods::format_request, infelizmente durante a execução do código da minha biblioteca estou recebendo um aviso:

Use of uninitialized value $v in concatenation (.) or string at ~/perl5/lib/perl5/Net/HTTP/Methods.pm line 167.

Existe alguma maneira de obter um rastreamento de pilha desse aviso para que eu possa restringi-lo à chamada exata? Meu primeiro pensamento é adicionar no warningsacima de cada chamada potencial, mas isso parece impraticável dado o número de chamadas. (Embora eu faça isso se for necessário).

Como o intérprete do Perl faz instruções if? Eu queria tentar implementar um Lazy-Basic-Block-Versioning simples para instruções if usadas refcomo predicado e talvez posteriormente também para sub-rotinas.

Depois de estudar o código-fonte, vejo códigos OP para tudo, menos para controlar o fluxo. Minha experiência como intérprete é bastante limitada, mas presumo ver um OP_IFque estouraria a pilha para seus códigos OP de predicados ou algo nesse sentido. Descobri KEY_ifque vem da gramática Yacc, que posteriormente é usada toke.ce traduzida para a KW_IF, mas não consigo descobrir onde KW_IFé realmente usada.

Originalmente, eu pretendia apenas adicionar alguma otimização básica com estado global ao peep.c, mas como não há, OP_IFestou lutando para ter uma visão geral de como o fluxo de controle é tratado.