<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 &quot;negócio&quot; abaixo?</div>
<div>&nbsp;</div>
<div><br>#!/usr/bin/perl<br>use List::Compare;<br>use warnings;<br>use strict;<br><br>my $naomonitorado = &#39;/var/www/cgi-bin/imm/naomonitorar.txt&#39;;<br>open (NAOMONIT, $naomonitorado);<br>my @file = &lt;NAOMONIT&gt;;
<br>close (NAOMONIT);<br><br>print &quot;Digite os nomes: &quot;;<br>my $user = &lt;STDIN&gt;;<br>chomp $user;<br>&nbsp;</div>
<div>my @users = split (/ /, &quot;$user&quot;);<br>&nbsp;</div>
<div>my %file;<br>my @newlist;<br><br>if ( $user eq &quot;&quot; ) {<br>print &quot;Bla..\n&quot;;<br><br>} else {<br>@file{@file}=1;<br>delete @file{@users};<br>@newlist = keys %file;<br>}<br><br>print &quot;LISTA:: @newlist&quot;, &quot;\n&quot;;
<br><br><br>&nbsp;</div>