[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