Craig Inman wrote: > > Trying to get this script to 'claimsubmit' ONLY if the system call > returns STDOUT, but I'm having a little trouble getting my script to > verify that and act accordingly.
Do you mean you want to capture the output from claimsubmit? Use back-quotes (``) or qx//. > opendir DIRH, "$unknown" or die "Can't open: $!\n"; ^ ^ Quotes aren't required. opendir DIRH, $unknown or die "Can't open $unknown: $!\n"; > foreach my $files (sort readdir DIRH) > { > my @claims = (grep(!/^\.{1,2}$/, $files)); grep() reads from a LIST and returns a LIST. IOW grep is inappropriate here my @claims = sort grep !/^\.{1,2}$/, readdir DIRH; foreach my $file ( @claims ) { > if (system ("zowner $claims[0]")) > { if ( system( 'zowner', $file ) == 0 ) { > # (system("claimsubmit $claims[0]")); <-- once it works, i'll use this system( 'claimsubmit', $file ) == 0 or warn "claimsubmit $file failed: $?"; > print "claimsubmitting $claims[0] \n"; print "claimsubmitting $file\n"; > } > } John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]