RE: Checking to see if file exists.

[shawnhcorey@xxxxxxxx (Mr. Shawn H. Corey)]

On Tue, 2008-07-29 at 19:06 -0700, tvadnais wrote:
> Here is the true code if that helps:
> I've tried: 
> 
> foreach my $file ( @currset )
> {
>     my $tmpstr = substr ($file, 0, index($file, ".pgp"));
>     print ("trying to delete $tmpstr \n");
> ## pgp will core dump if there's already an unencrypted file
> ## with the destination source name... So we have to remove the
> ## previously decrypted file if it exists.
>    unlink ($tmpstr);
>     $tmpstr = "/usr/local/bin/pgp -z 'Chars process for WSHA' $file";
>    if (system($tmpstr) == 0) {
>        $notice .= LogMsg (MSG => "system $tmpstr failed: $?", DEBUG =>
> $debug);

system() returns zero for success.  See `perldoc -f system`.


-- 
Just my 0.00000002 million dollars worth,
  Shawn

"Where there's duct tape, there's hope."

"Perl is the duct tape of the Internet."
        Hassan Schroeder, Sun's first webmaster