[Cascavel-pm] Procurar texto em arquivo.

[Luis Motta Campos]

On Jun 15, 2007, at 3:32 PM, Rafael Lebrão Martins wrote:
> 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");
> }
> --------------------------------------------------------------------

   Esta merda estah cheia de problemas, a comecar pela falta de  
documentacao.
   Alguém pode por favor rodar o perlcritic nisto e mandar o  
resultado para a lista?
   Eu acho que a gente pode sugerir MUITAS melhorias.

   Agora, infelizmente, eu tenho de correr.
   Tenho aula de holandês daqui a pouco.
   Putamplexos para todo mundo!

   Rafael: não fique zangado com o que eu escrevi acima, é que eu sou  
o Troll da lista e não tenho tempo para ser delicado com ninguém ;-)  
mas sempre ensino alguma coisa. Troll é cultura! (Cultura Perl, bem  
entendido!)
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}