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

[Rafael Lebrao Martins]

Wendel, você tinha toda razão!!! Agora funcionou.
Muito obrigado....
Vou prestar mais atenção nesses detalhes.



Em 17/01/08, Wendel Scardua <wendelscardua em gmail.com> escreveu:
>
> Você esqueceu de fazer
>
> chomp @file;
>
> (os elementos da sua lista @file todos tem "\n" no final; os nomes em
> @users não. Logo, são elementos distintos)
>
> []s
> Wendel
>
> 2008/1/17 Rafael Lebrao Martins <rafamv1 em ig.com.br>:
> > 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";
> >
> >
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080117/c6a14fbc/attachment-0001.html