Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]
:
: On May 14, Charles K. Clarkson said:
:
: >sub unmerge {
: > my( @arr1, @arr2 );
: > /^!/ ? push @arr1, $_ : push @arr2, $_ foreach @{ $_[0] };
:
: I like this better:
:
: push @{ /^!/ ? [EMAIL PROTECTED] : [EMAIL PROTECTED] }, $_ for @{ $_[0] };
Arghh! I tried a few variations of that and couldn't
get it to work.
Thanks Jeff,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
