Re: Need help with Excel::Writer::XLSX in using 'or'

This code snippet has a precedence problem:

foreach my $sub_user_error (@db_user_errors)
{
       $worksheet->write( $row, $col, $db_error_data{$hour}{'Submissio
+n_user_error'}{$sub_user_error} or 0, $number);
       $col++;
}
[download]

If you look at the table in perlop#Operator-Precedence-and-Associativity, you’ll see that logical or has a lower precedence than the comma operator. So if the hash element contains a false value, the expression inside the call to write evaluates to 0, $number, which in turn evaluates to $number — which is not what you want.

The fix is to use the higher-precedence version of logical or, namely ||:

#! perl
use strict;
use warnings;
use feature qw( say );

my  $hour           = 12;
my  $error          = 'Submission_user_error';
my  $sub_user_error =  3;
my  $number         = 42;
my  %db_error_data;
    $db_error_data{$hour}{$error}{$sub_user_error} =  0;

say 'With ||:';
say $db_error_data{$hour}{$error}{$sub_user_error} || 0, $number;

say 'With or:';
say $db_error_data{$hour}{$error}{$sub_user_error} or 0, $number;
[download]

Output:

22:40 >perl 1619_SoPW.pl
Useless use of private variable in void context at 1619_SoPW.pl line 1
+7.
With ||:
042
With or:
0

22:40 >
[download]

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re: Need help with Excel::Writer::XLSX in using 'or' Select or Download Code

Replies are listed 'Best First'.
Re^2: Need help with Excel::Writer::XLSX in using 'or' by marioroy (Prior) on May 03, 2016 at 13:30 UTC
Confirmed, precedence order :) `use strict; use warnings; use feature qw( say ); sub _write { my ( $err, $num ) = @_; say "$err, $num"; } my %data; $data{error} = ""; _write( $data{error} \|\| 0, 42 ); $data{error} = "foo bar"; _write( $data{error} \|\| 0, 42 ); $data{error} = "foo baz"; _write( $data{error} or 0, 42 ); # <-- fails __END__ 0, 42 foo bar, 42 Use of uninitialized value $num in concatenation (.) or string at i li +ne 7. foo baz,` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Need help with Excel::Writer::XLSX in using 'or'
by marioroy (Prior) on May 03, 2016 at 13:30 UTC

Confirmed, precedence order :)

use strict;
use warnings;
use feature qw( say );

sub _write {
   my ( $err, $num ) = @_;
   say "$err, $num";
}

my %data;

$data{error} = "";
_write( $data{error} || 0, 42 );

$data{error} = "foo bar";
_write( $data{error} || 0, 42 );

$data{error} = "foo baz";
_write( $data{error} or 0, 42 );  # <-- fails

__END__

0, 42
foo bar, 42
Use of uninitialized value $num in concatenation (.) or string at i li
+ne 7.
foo baz,
[download]

[reply]
[d/l]