Re: [solved but..] Push first 9 elements

[Steve Grazzini]

On Thu, Jul 31, 2003 at 12:17:10AM +0000, Pablo Fischer wrote:
> Hi! I solved it:
> 
> for($i=0; $i<($#archivo-2); $i++) {
> #    print "FSF\n";
>     for($j=0; $j<9; $j++) {
>       push(@lista_final, $correos_p[$j]);
>       push(@lista_final, $correos_h[$j]);
>       push(@lista_final, $correos_y[$j]);
>       push(@lista_final, $correos_l[$j]);
>       push(@lista_final, $correos_t[$j]);
>       push(@lista_final, $correos_s[$j]);
>       push(@lista_final, $correos_o[$j]);
> #     print $correos_p[$j]."\n";
>     }
>     splice(@correos_p,0,8);
>     splice(@correos_h,0,8);
>     splice(@correos_y,0,8);
>     splice(@correos_l,0,8);
>     splice(@correos_t,0,8);
>     splice(@correos_s,0,8);
>     splice(@correos_o,0,8);
> }
> 
> Correct?

Actually: splice() *returns* the deleted elements, so all you'd
really need is

    for (whatever) {
      push @lista_final, splice(@correos_p, 0, 8);
      push @lista_final, splice(@correos_h, 0, 8);
      push @lista_final, splice(@correos_y, 0, 8);
      # etc...
    }

But I do wonder whether you're using the the right data structure
for this.  For example, if you had a hash of arrays instead

    %correos = (
      p => [ list ],
      h => [ list ],
      y => [ list ],
      etc...
    );

You could loop over %correos rather than repeating the push/splice
statement eight times.  (Just a thought.)

> And now, How can I remove duplicate elements from a 
> list or array. I know that this answer its in perldoc
> -q duplicate, but I didnt understand the doc.
> 
> Some examples?

But there are examples in the FAQ... (?)

    @lista_final = do {
      my %seen;
      grep !$seen{$_}++, @lista_final
    };

HTH
-- 
Steve

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