Noob question about precedence and exit status

[jb53403]

I'm trying to find out why a particular Perl script is experiencing errors on a move command. Here's the line that's erroring:

move( "$file", "$homeDir/trash/" ) or $err1 = "Y";

I want to capture the exit status of the move command, but still make sure the err1 variable gets set to Y, since there's logic built around that in the script. Can I do something like this?

move( "$file", "$homeDir/trash/" ) or ( $err1 = "Y" and print $? );

Otherwise what's the best way for me to accomplish this? Thanks!

 

[rharsh]

Where are you getting the move function from? Have you checked the documentation for the appropriate package?

 

[rharsh]

I'm guessing you got it from File::Copy, in which case:

RETURN
All functions return 1 on success, 0 on failure. $! will be set if an
error was encountered.

So something like this would probably work for you:

my $status = move( "$file", "$homeDir/trash/" );
unless ($status) {
  print $!;
  $err = 'Y';
}

 

[jb53403]

Yes, I should have realized the move command came from File::Copy. Your suggestion worked like a charm. Thanks!