Why not use a foreach, test the element, then undef it when found?

Or, use foreach, test the element, if != '0', then push it onto
another array?  


David Gilden <[EMAIL PROTECTED]> had this to say,

> Hi,
> I would like to remove elements from an array that are eq to string '0'
> The following does not work, can someone shed some light on the proper 
> way to do this.
> Thanks!
> Dave G.
> 
> #!/usr/bin/perl -w
> 
> @bag_quantity = ( '0', 1, '0', '0', '0', '0', '0', '0', '0' ); 
> 
> 
> for (@bag_quantity){
> shift if $_ eq '0';
> }
> 
> 
> print "@bag_quantity\n";
> 
> 
> ==============================================
>          Cora Connection: Your West African Music Source
>               Resources, Recordings, Instruments & More!
>                    <http://www.coraconnection.com/> 
> ==============================================
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
          There are 010 types of people in the world:
       those who understand binary, and those who don't.
τΏτ   111,111,111 x 111,111,111 = 12,345,678,987,654,321 (decimal)
 ~ 







--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to