[Cascavel-pm] Procurar texto em arquivo.

[Rafael Lebrão Martins]

Segue o script: 
-------------------------------------------------------------------- 
#!/usr/bin/perl 
use warnings; 
use strict; 
use CGI qw ( :standard ); 

my $arquivo = '/etc/squid/arquivos/liberados/dl_geral'; 
open ( LIBERADOS,$arquivo ); 
my @linhas = <LIBERADOS>; 
close (LIBERADOS); 
my $site = param ( "site" ); 
my $www = param ( "www" ); 

open (LIBERADOS, "$arquivo"); 
my $linhas = "@linhas"; 
if ($site eq /^[.]$/ ) { 
print redirect ("http://meuservidor.no-ip.info/arquivos/siteinexist.htm"); 
close (LIBERADOS); 
exit; 
} 
open (LIBERADOS, "$arquivo" ); 
if ($linhas =~ /^(?:.)(.{2})+.$site/) { 
print redirect ("http://meuservidor.no-ip.info/arquivos/siteexist.htm"); 
close ( LIBERADOS ); 
exit; 
} 
open (LIBERADOS, "$arquivo" ); 
if ($linhas =~ m/^(\d{3}))+(?:.)+$site/) { 
print redirect ("http://meuservidor.no-ip.info/arquivos/siteexist.htm"); 
close ( LIBERADOS ); 
exit; 
}else { 
open ( LIBERADOS,"+>>$arquivo" ); 
print ( LIBERADOS "\n$www$site" ); 
close ( LIBERADOS ); 
system("squid -k reconfigure"); 
print redirect ("http://meuservidor.no-ip.info/arquivos/siteliberado.htm"); 
} 
--------------------------------------------------------------------