Olá Pessoal!<br><br>Bem eu estava testando esse script que tem no livro do Deitel (alguns odeiam...eu sei!) sobre criar processos através da função open(). Porém, não consigo executar esse script,pois dá os seguintes erros: <br>
<br>1---> '-' n\xc6o \x82 reconhecido como um comando interno\r<br>2----> ou externo, um programa oper\xa0vel ou um arquivo em lotes.\r<br><br>Eu já li no CPAN, mas sinceramente não consegui achar explicação para isso. Se alguém puder me ajudar, pois estou usando a idéia que está nesse site (<a href="http://www.stonehenge.com/merlyn/LinuxMag/col39.html">http://www.stonehenge.com/merlyn/LinuxMag/col39.html</a>) para execução longa de scripts cgi.<br>
<br>O script é esse:<br><br>-> Ambiente : Windows XP<br><br>#!C:\Perl\bin\perl.exe -w<br># Fig. 18.12: fig18_12.pl<br># Using open to fork and filter output.<br><br>use warnings;<br>use strict;<br><br>$| = 1;<br><br>if ( my $pid = open( CHILD, '-|' ) ) {<br>
my $i;<br><br> while ( <CHILD> ) {<br> print( "Line ", ++$i, ": $_" );<br> }<br><br> close( CHILD ) or die( "Cannot close: $!" );<br>}<br>elsif ( defined( $pid ) ) {<br> print( "I am doing some\n" );<br>
print( "processing here\n" );<br> print( "that produces\n" );<br> print( "multiple lines\n" );<br> print( "of output.\n" );<br> exit();<br>}<br>else {<br> print( "Could not fork." );<br>
}<br><br><br>Obrigado<br>