Pablo Fischer wrote:
>
> Ohh I found
>
> Just to change the 8 to 1, and Im going to use one of each one, not 9 by 9.
>
> for($i=0; $i<($#archivo-2); $i++) {
> push @lista_final, splice(@correos_p, 0, 1);
> push @lista_final, splice(@correos_h, 0, 1);
> push @lista_final, splice(@correos_y, 0, 1);
> push @lista_final, splice(@correos_l, 0, 1);
> push @lista_final, splice(@correos_t, 0, 1);
> push @lista_final, splice(@correos_s, 0, 1);
> push @lista_final, splice(@correos_o, 0, 1);
> }
If you are just removing one element then you can use shift instead.
And you are not really using $i it seems.
for ( 0 .. @archivo - 4 ) {
push @lista_final, shift @correos_p;
push @lista_final, shift @correos_h;
push @lista_final, shift @correos_y;
push @lista_final, shift @correos_l;
push @lista_final, shift @correos_t;
push @lista_final, shift @correos_s;
push @lista_final, shift @correos_o;
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
