note
TGI
<p>I can't really answer "why" Larry and crew chose the things they did. But, I might be able to shed a little light.
<p>Let's look at your examples
<c>
scalar((1,3,5)) #evaluates to the last element of the list --- 5
if( (5,3,0) ) #evaluates to the last element of the list --- 0, thus evaluates to false
$val=(5,6,7); #evaluates to the last element of the list --- 7
</c>
<p>These use the comma operator ',' in scalar context, returning whatever is on the right of the comma. In the case of multiple commas, you get the value of the rightmost expression.
<p>There is no list here at all. You just think there is because you have been trained to think of the comma as meaning 'list'.
<c>
$ret = (($i, $j, $k)=(5,6,8,9)); #evaluates to the number of elements on the right side list --- 4
if( ($k, $v) = ( 1, 0 ) ) #evaluates to the number of elements on the right side list --- 2, thus evaluates to TRUE
while ( ($key, $value) = each %map ) #still evaluates to the number of elements on the right side hash
</c>
<p>Here we actually have some lists, and thus actual list assignment.
<p>List assignment is scalar context gives us the size of the list that was passed into the assignment. So here <c>$foo = ($bar, $baz) = (1..50);</c> <c>$foo</c> is equal to 50.
<p>In list context you get the contents of the resulting list. So <c> @foo = () = (1..50)</c> leaves <c>@foo</c> empty.
<p>Why is it this way? I don't know. But I can tell you that getting the size of the assigned from list can be useful.
<c>
my $count_foo = () = /foo/g;
</c>
<p>Written a bit more compactly, that construct gets called "the goatse operator": <c>$foo =()= /foo/g;</c> If you don't get the joke, don't look it up.</p>
<p>I hope this helps a bit.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-25825">
<P><BR>TGI says <B>moo</B></P>
</div></div>
1003051
1003051