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] };
> return ( [EMAIL PROTECTED], [EMAIL PROTECTED] );
>}
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
CPAN ID: PINYAN [Need a programmer? If you like my work, let me know.]
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
