[Cascavel-pm] Procurar texto em arquivo.

Luis Motta Campos luismottacampos em yahoo.co.uk
Segunda Junho 18 00:10:35 PDT 2007


On Jun 15, 2007, at 5:42 PM, Alceu Rodrigues de Freitas Junior wrote:
> > From: luismottacampos em yahoo.co.uk
> > Date: Fri, 15 Jun 2007 17:20:26 +0200
>
> > Esta merda estah cheia de problemas, a comecar pela falta de
> > documentacao.
>
> Que boca suja! :-D

   Eu sou um Ogro Classe 1! O que você esperava? Hálito mentolado? ;-)

> > 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.
>
> Vai meus dois centavos. Fiquei com preguiça de fazer mais que isso:

   Foi tudo o que eu pedi! Valeu!

> <code>
> #!/usr/bin/perl
> use warnings;
> use strict;
> use CGI qw ( :standard );
>
> use constant ARQUIVO => '/etc/squid/arquivos/liberados/dl_geral';
> use constant SERVIDOR =>
>   'http://meuservidor.no-ip.info/arquivos/siteinexist.htm';
>
> 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(SERVIDOR);
>     close(LIBERADOS);
>     exit;
> }
>
> open( LIBERADOS, "$arquivo" );
>
> if ( $linhas =~ /^(?:.)(.{2})+.$site/ ) {
>     print redirect (SERVIDOR);
>
>     close(LIBERADOS);
>     exit;
> }
>
> open( LIBERADOS, "$arquivo" );
>
> if ( $linhas =~ m/^(\d{3}))+(?:.)+$site/ ) {
>     print redirect (SERVIDOR);
>     close(LIBERADOS);
>     exit;
> }
> else {
>     open( LIBERADOS, '+>>', ARQUIVO );
>     print LIBERADOS "\n$www$site";
>     close(LIBERADOS);
>
>     # argh! sem verificação se executou ou não isso!
>     # esse script rodar com setuid?
>     system("squid -k reconfigure");
>     print redirect (SERVIDOR);
> }
> </code>
>
> temp.pl|10 col 1| Two-argument "open" used.  See page 207 of PBP   
> (Severity: 5)
> temp.pl|10 col 1| Bareword file handle opened.  See pages 202,204  
> of PBP  (Severity: 5)
> temp.pl|17 col 1| Bareword file handle opened.  See pages 202,204  
> of PBP  (Severity: 5)
> temp.pl|27 col 1| Two-argument "open" used.  See page 207 of PBP   
> (Severity: 5)
> temp.pl|27 col 1| Bareword file handle opened.  See pages 202,204  
> of PBP  (Severity: 5)
> temp.pl|36 col 1| Two-argument "open" used.  See page 207 of PBP   
> (Severity: 5)
> temp.pl|36 col 1| Bareword file handle opened.  See pages 202,204  
> of PBP  (Severity: 5)
> temp.pl|44 col 5| Bareword file handle opened.  See pages 202,204  
> of PBP  (Severity: 5)

   Alguém lembra de cabeça qual é a maior gravidade do Perl Critic?
   Me parece que a gente tem problemas sérios aqui... ;-)
   Putamplexos!
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}




Mais detalhes sobre a lista de discussão Cascavel-pm