http://www.perlmonks.org?node_id=1022794


in reply to Name "main::a" used only once: possible typo

I am confused that nobody suggested:

print reduce { $_[0] * $_[1] } 1..6;

Replies are listed 'Best First'.
Re^2: Name "main::a" used only once: possible typo
by toolic (Bishop) on Mar 11, 2013 at 13:38 UTC
    Perhaps because it produces the incorrect result and 8 more warning messages: 
    #!/usr/bin/env perl

use warnings;
use strict;

use List::Util qw/reduce/;
print reduce { $_[0] * $_[1] } 1..6; 

__END__

Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
Use of uninitialized value in multiplication (*) at x.pl line 7.
0

    [download]
[reply]
[d/l]
Re^2: Name "main::a" used only once: possible typo
by LanX (Saint) on Mar 11, 2013 at 13:40 UTC
    cause it doesn't work?

    use List::Util qw/reduce/;
print reduce { $_[0] * $_[1] } 1..6;
__END__
Use of uninitialized value in multiplication (*) at /home/lanx/B/PL/PM
+/ScopeListUtils.pl line 23.
...

    [download]

    Cheers Rolf

[reply]
[d/l]
      Well damn. I was sure i had used that on List::Util stuff to get around $a/b warnings. Guess i misremembered.
[reply]
Re^2: Name "main::a" used only once: possible typo
by subogero (Initiate) on Sep 13, 2017 at 10:42 UTC
    I guess List::Util::reduce does not pass the parameter pair at all to your function, it just localizes $a and $b with them.
[reply]

In Section Seekers of Perl Wisdom