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

Wendel Scardua wendelscardua em gmail.com
Quinta Janeiro 17 11:38:17 PST 2008


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";
>
>


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