[Cascavel-pm] Criando processos através da função open()

[Matheus Barros]

Olá Pessoal!

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:

1--->      '-' n\xc6o \x82 reconhecido como um comando interno\r
2---->     ou externo, um programa oper\xa0vel ou um arquivo em lotes.\r

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 (
http://www.stonehenge.com/merlyn/LinuxMag/col39.html) para execução longa de
scripts cgi.

O script é esse:

-> Ambiente : Windows XP

#!C:\Perl\bin\perl.exe -w
# Fig. 18.12: fig18_12.pl
# Using open to fork and filter output.

use warnings;
use strict;

$| = 1;

if ( my $pid = open( CHILD, '-|' ) ) {
   my $i;

   while ( <CHILD> ) {
      print( "Line ", ++$i, ": $_" );
   }

   close( CHILD ) or die( "Cannot close: $!" );
}
elsif ( defined( $pid ) ) {
   print( "I am doing some\n" );
   print( "processing here\n" );
   print( "that produces\n" );
   print( "multiple lines\n" );
   print( "of output.\n" );
   exit();
}
else {
   print( "Could not fork." );
}


Obrigado
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080215/cc9e7217/attachment.html