[Cascavel-pm] comando system

[jimmy]

On Wed, Aug 12, 2009 at 11:25:16AM -0300, Elvio Barbalho wrote:
>    Senhores bom dia estou executando um programa através da função system
>    (system(programa);) quando ocorre algum problema neste programa ele
>    informa na tela o erro queria saber se é possível capturar este erro e
>    atribuila a uma variável?????
> 
>    Elvio Barbalho
>    Brasília, DF
>    Brasil
> 
>    T + 55 61 21096814
>    C + 55 61 84223137
>    C + 55 61 81751213
>    elvio.barbalho em gmail.com
> _______________________________________________

eu lhe recomendaria o Open3, segue um exemplo simples:

use strict;
use warnings;
use IPC::Open3;
use Symbol;

my $shcmd = q(/usr/bin/rm);
my @args = qw(remova-me);
my ($stdin, $stdout, $stderr) = map { gensym() } ( 1..3 );
my $pid = open3($stdin, $stdout, $stderr, $shcmd, @args);
my @stdout = <$stdout>;
my @stderr = <$stderr>;
close($stdin);
close($stdout);
close($stderr);
print(qq($_\n)) for(@stderr);

ao executar ele imprime:

/usr/bin/rm: cannot remove `remova-me': No such file or directory

tem mais informações no hitórico da lista e dê uma lista e em
http://www.perl.org.br/Artigos/ProgramaçãoSegura
sobre esse módulo.


-- 
"Não manejo bem as palavras
Mas manipulo bem as strings."
------------------------------