Rafael, você já deve ter lidos os outros emails, em
particular o do Nelson, sobre como fazer perguntas em uma lista. Como
ainda não está claro para min o que você realmente
deseja, vou fazer alguns comentários sobre o seu código.
Ok?<br /><br />Espero que assim possa estar lhe ajudando.<br /><br
/>Luiz.<br /><br />&gt; Segue o script:<br />&gt;
--------------------------------------------------------------------<br
/>&gt; #!/usr/bin/perl<br />&gt; use warnings;<br />&gt; use strict;<br
/>&gt; use CGI qw ( :standard );<br />&gt; <br />&gt; my $arquivo =
'/etc/squid/arquivos/liberados/dl_geral';<br />&gt; open (
LIBERADOS,$arquivo );<br />&gt; my @linhas = &lt;LIBERADOS&gt;;<br />&gt;
close (LIBERADOS);<br /><br />Nas quatro linhas anteriors, voc&ecirc; abre
e carrega o conte&uacute;do de um arquivo no array @linhas. Pergunta: O
que voc&ecirc; quer fazer com o&nbsp; conte&uacute;do&nbsp; deste
array?<br /><br />&gt; my $site = param ( &quot;site&quot; );<br />&gt; my
$www = param ( &quot;www&quot; );<br />&gt; <br />&gt; open (LIBERADOS,
&quot;$arquivo&quot;);<br />&gt; my $linhas = &quot;@linhas&quot;;<br
/>&gt; if ($site eq /^[.]$/ ) {<br />&gt; print redirect
(&quot;http://meuservidor.no-ip.info/arquivos/siteinexist.htm&quot;);<br
/>&gt; close (LIBERADOS);<br />&gt; exit;<br />&gt; }<br /><br />Nas
linhas acima voc&ecirc; abre novamente o arquivo e posteriormente o fecha.
N&atilde;o fez nada com o filehandle LIBERADOS. O que voc&ecirc; pretendia
com isto ?<br />Voc&ecirc; tamb&eacute;m atribuiu o conte&uacute;do do
array @linhas a string $linhas. Para que ?<br />O que voc&ecirc; queria
testar com a regex /^[.]$/ ?<br /><br />&gt; open (LIBERADOS,
&quot;$arquivo&quot; );<br />&gt; if ($linhas =~ /^(?:.)(.{2})+.$site/)
{<br />&gt; print redirect
(&quot;http://meuservidor.no-ip.info/arquivos/siteexist.htm&quot;);<br
/>&gt; close ( LIBERADOS );<br />&gt; exit;<br />&gt; }<br /><br
/>Voc&ecirc; novamente abre e fecha o arquivo e n&atilde;o faz nada o
filehandle LIBERADOS!<br />E usa o conte&uacute;do de $linhas, que
voc&ecirc; atribui l&aacute; em cima.<br /><br />Mande um exemplo do real
conte&uacute;do do &quot;dl_geral&quot;. A&iacute; podemos avaliar melhor
se a regex se aplica ou n&atilde;o ao caso.<br /><br />Termino aqui os
coment&aacute;rios, ressaltando que muito mais pode ser comentado sobre
este c&oacute;digo. Mas n&atilde;o vou me estender muito.<br /><br />&gt;
open (LIBERADOS, &quot;$arquivo&quot; );<br />&gt; if ($linhas =~
m/^(\d{3}))+(?:.)+$site/) {<br />&gt; print redirect
(&quot;http://meuservidor.no-ip.info/arquivos/siteexist.htm&quot;);<br
/>&gt; close ( LIBERADOS );<br />&gt; exit;<br />&gt; }else {<br />&gt;
open ( LIBERADOS,&quot;+&gt;&gt;$arquivo&quot; );<br />&gt; print (
LIBERADOS &quot;\n$www$site&quot; );<br />&gt; close ( LIBERADOS );<br
/>&gt; system(&quot;squid -k reconfigure&quot;);<br />&gt; print
redirect<br />&gt;
(&quot;http://meuservidor.no-ip.info/arquivos/siteliberado.htm&quot;);<br
/>&gt; }<br />&gt;
--------------------------------------------------------------------<br
/>&gt; <br />&gt; <br />&gt;
_______________________________________________<br />&gt; Cascavel-pm
mailing list<br />&gt; Cascavel-pm@pm.org<br />&gt;
http://mail.pm.org/mailman/listinfo/cascavel-pm