[Cascavel-pm] Gerar lista...

[Nilson Santos Figueiredo Junior]

On 8/2/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Neste caso, como extrair da "lista 2" apenas as palavras que não contêm na
> lista "@array" e guardá-las numa
> terceira lista??

  my @array = qw(foo bar);
  my @lista = qw(baz quux foo);

  my %elts = map { $_ => 1 } @array;

 my @diff = grep { ! exists $elts{$_} } @lista;

Entendi algo de errado?

-Nilson Santos F. Jr.