note
LanX
not a good idea!<P><P>
<c>
DB<104> @arr = qw/a b c/;
=> ("a", "b", "c")
DB<105> foreach ( "x",@arr,"y") {
push @arr, 'd' if $_ eq 'a';
push @arr, 'e' if $_ eq 'b';
push @arr, 'f' if $_ eq 'c';
print $_;
}
=> ""
xabcy
</c><P><P>
better rely on orthogonal behavior!<P><P>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-708738">
<p>Cheers Rolf
<p> <small>( addicted to the Perl Programming Language) </small>
</div></div>
1023497
1023497