Re: Perl Idioms Explained - my $count = () = /.../g

[santonegro]

in reply to Perl Idioms Explained - my $count = () = /.../g

a list assignment in scalar context returns the number of elements on the right-hand side of the list assignment

I don't agree with that. An array assignment does this. A list assignment returns the last element. To wit:

@A = (1,3,5);
$scalar_array  = @A;
$scalar_list   = (1,3,5);
$scalar_weird  = (1..5);

print "SA: ", $scalar_array, $/;
print "SL: ", $scalar_list, $/;
print "SW: ", $scalar_weird, $/;
=for shell
  metaperl@pool-71-109-151-76:~/tmp$ perl a.pl
SA: 3
SL: 5
SW: 
=cut

[japhy]

You misunderstood me. A list assignment in scalar context returns the number of elements.

my $count = (LIST1) = (LIST2);

The chunk in bold is the list assignment. That is put in scalar context by the my $count = ... part.

Please see Re: Longest repeated string... for further clarification.