[Cascavel-pm] Script em Perl

[André Garcia Carneiro]

Oi Rafael
 
> #!/usr/bin/perl 
> 
> use warnings; 
> use strict; 
> 
> 
> my $arquivo = '/etc/squid/arquivos/liberados/dl_geral'; 
> open ( LIBERADOS,$arquivo ) or die ( "Nao pode abrir o arquivo: $!" ); 
Precisa melhorar o seu tratamento de erros... quem sabe com um eval(perldoc.perl.org/functions/) pra
começar...(quem tiver idéia melhor, por favor não deixe de postar).

> my @linhas = <LIBERADOS>; 
> close (LIBERADOS); 
> print "@linhas\n"; 
> print "Insira o site a ser removido: "; 
> my $site = <STDIN>; 
> chomp $site; 
> open ( LIBERADOS,">>$arquivo" ) or die ( "Nao pode abrir o arquivo: $!" ); 

Quando você abre com '>>', significa que você adicionará coisas no arquivo... Se você quiser abrir um novo
arquivo(se é que eu entendi o seu objetivo), você deve abrir com ">"(um "sinal de maior" apenas). Desse modo
você perderá o conteúdo que estava lá(portanto cuidado, faça um backup se for fazer isso).

> my $linhas = "@linhas"; 

Posso estar errado, mas não seria melhor ter um 'foreach' ou um 'map' por aqui????


> if ($linhas =~ $site) { 
> #delete (LIBERADOS $site}; 
>  s/$site/funcionou/gi; 
> print "O site $site foi removido com sucesso\n"; 
> close ( LIBERADOS ) or die ( "Nao pode fechar o arquivo: $!" ); 
> } 
> 
> else { 
> open ( LIBERADOS,">>$arquivo" ) or die ( "Nao pode abrir o arquivo: $!" ); 
> print ( LIBERADOS "\n$site" ); 
> close ( LIBERADOS ) or die ( "Nao pode fechar o arquivo: $!" ); 
> system("squid -k reconfigure"); 
> print " O site foi adicionado com sucesso.\n"; 
> } 
> 
> 
> 
> 
> 
> 
> Rafael Lebrao Martins. 
> Cursando Ciências Contábeis. 
> Universidade Estadual Do 
> Sudoeste Da Bahia. 
> Microsoft Certified 
> Professional 
> 70-271:Supporting Users and 
> Troubleshooting a Microsoft® 
> Windows® XP Operating System 
> TEL - (77) 9989-6327 
> 
> 
> 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1172529719.159984.10939.alcala.hst.terra.com.br,5572,Des15,Des15
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 26/02/2007 / Versão: 5.1.00/4971
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 

--
André Garcia Carneiro
Developer(Perl/PHP)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org