[Cascavel-pm] Intersecção e diferença entre arrays

Rafael Lebrao Martins rafamv1 em ig.com.br
Quinta Janeiro 17 10:44:55 PST 2008


Eden, olha o código que eu fiz... Ele não me retorna a diferença entre as
duas listas... Não consegui detectar o erro ai..
Qual é o problema desse "negócio" abaixo?


#!/usr/bin/perl
use List::Compare;
use warnings;
use strict;

my $naomonitorado = '/var/www/cgi-bin/imm/naomonitorar.txt';
open (NAOMONIT, $naomonitorado);
my @file = <NAOMONIT>;
close (NAOMONIT);

print "Digite os nomes: ";
my $user = <STDIN>;
chomp $user;

my @users = split (/ /, "$user");

my %file;
my @newlist;

if ( $user eq "" ) {
print "Bla..\n";

} else {
@file{@file}=1;
delete @file{@users};
@newlist = keys %file;
}

print "LISTA:: @newlist", "\n";
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/403c2a4c/attachment.html 


Mais detalhes sobre a lista de discussão Cascavel-pm