I really need help on this.Tried in a different way as below,am not able to store the STDERR output into any variable.The below program doesnt print anything.I have been working on this since last night,couldnt get a handle on this.Any help is truly appreciated.
#!/usr/bin/perl -w use strict; use warnings; use diagnostics; #use diagnostics; use IPC::Open3; my @changed_paths; my @changed_files=("//depot/perl/tools/scripts/files/data.c"); foreach my $file (@changed_files) { my($wtr, $rdr, $err); use Symbol 'gensym'; $err = gensym; my $pid = open3($wtr, $rdr, $err,'p4 where $file'); print "$err\n"; #prints as GLOB(0x183f108),why is it so? #waitpid( $pid, 0 ); //Why do we need this?Program never halts if th +is is present my $child_exit_status = $? >> 8; if ($err eq 'file(s) not in client view') { push @changed_paths,$file; } print @changed_paths; }
In reply to Re^6: How to stop printing the output of a command on screen when the command fails?
by perl_mystery
in thread How to stop printing the output of a command on screen when the command fails?
by perl_mystery
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |