<div>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..</div>
<div>Qual é o problema desse "negócio" abaixo?</div>
<div> </div>
<div><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> </div>
<div>my @users = split (/ /, "$user");<br> </div>
<div>my %file;<br>my @newlist;<br><br>if ( $user eq "" ) {<br>print "Bla..\n";<br><br>} else {<br>@file{@file}=1;<br>delete @file{@users};<br>@newlist = keys %file;<br>}<br><br>print "LISTA:: @newlist", "\n";
<br><br><br> </div>