On Wednesday, Jan 15, 2003, at 06:43 US/Pacific, [EMAIL PROTECTED] wrote:
[..]
#!/usr/local/bin/perl use IPC::Open3; my ($commande); $commande = 'prog <myfile.txt'; $pid = open3(*SON_IN, *SON_OUT, *SON_ERR, $commande); close(SON_IN); @lignes_out = <SON_OUT>; @lignes_err = <SON_ERR>; print "STDOUT:\n", @lignes_out, "\n"; print "STDERR:\n", @lignes_err, "\n";
p0: don't close SON_IN anything that you would have written into myfile.txt write out to SON_IN p1: if you can rig 'prog' to take command line arguments then you could think about the communication in the simpler manner my $cmd = 'prog'; my $args = '--someFlag --otherFlag'; open(CMD, "$cmd $args 2>&1 |") while (<CMD>) { } ciao drieux --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]