<div>Wendel, você tinha toda razão!!! Agora funcionou.</div>
<div>Muito obrigado.... </div>
<div>Vou prestar mais atenção nesses detalhes.</div>
<div><br><br> </div>
<div><span class="gmail_quote">Em 17/01/08, <b class="gmail_sendername">Wendel Scardua</b> <<a href="mailto:wendelscardua@gmail.com">wendelscardua@gmail.com</a>> escreveu:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Você esqueceu de fazer<br><br>chomp @file;<br><br>(os elementos da sua lista @file todos tem "\n" no final; os nomes em
<br>@users não. Logo, são elementos distintos)<br><br>[]s<br>Wendel<br><br>2008/1/17 Rafael Lebrao Martins <<a href="mailto:rafamv1@ig.com.br">rafamv1@ig.com.br</a>>:<br>> Eden, olha o código que eu fiz... Ele não me retorna a diferença entre as
<br>> duas listas... Não consegui detectar o erro ai..<br>> Qual é o problema desse "negócio" abaixo?<br>><br>><br>> #!/usr/bin/perl<br>> use List::Compare;<br>> use warnings;<br>> use strict;
<br>><br>> my $naomonitorado = '/var/www/cgi-bin/imm/naomonitorar.txt';<br>> open (NAOMONIT, $naomonitorado);<br>> my @file = <NAOMONIT>;<br>> close (NAOMONIT);<br>><br>> print "Digite os nomes: ";
<br>> my $user = <STDIN>;<br>> chomp $user;<br>><br>> my @users = split (/ /, "$user");<br>><br>> my %file;<br>> my @newlist;<br>><br>> if ( $user eq "" ) {<br>> print "Bla..\n";
<br>><br>> } else {<br>><br>> @file{@file}=1;<br>> delete @file{@users};<br>> @newlist = keys %file;<br>> }<br>><br>> print "LISTA:: @newlist", "\n";<br>><br>><br>_______________________________________________
<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div>
<br>