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.


opendir DIRH, "$unknown" or die "Can't open: $!\n";

foreach my $files (sort readdir DIRH)
{
    my @claims = (grep(!/^\.{1,2}$/, $files));
    if (system ("zowner $claims[0]"))
    {
#    (system("claimsubmit $claims[0]"));     <-- once it works, i'll use

this
        print "claimsubmitting $claims[0] \n";
    }
}


Thanks,
Craig


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to