[Cascavel-pm] Script em Perl

rafamv1 rafamv1 em ig.com.br
Terça Fevereiro 27 08:15:58 PST 2007


 Coloquei da seguinte maneira e funcionou: 
Se não for incomodar demais, queria se possível que você me explicasse o 
código, há partes que não entendi direito. Como: perl -i.bkp -p 

-------------------------------------------------------------------- 
#!/usr/bin/perl -i.bkp -p 

BEGIN{ 
   $|=1; 
   push em ARGV, "/etc/squid/arquivos/liberados/dl_geral"; 
   print{STDOUT}"Insira o site a ser removido: \n"; 
$site = <STDIN>; 
chomp $site; 
} 
print {STDOUT}"site $& removido com sucesso\n", undef$_ if/^$site$/ 

-------------------------------------------------------------------- 
Em (13:06:05), Cascavel Perl Mongers escreveu: 


>ao invez de "chomp ($site=<>);" use "chomp ($site= );" 
> 
>fernando em FCORREA ~ 
>$ cat sites.teste 
>www.google.com 
>www.uol.com.br 
>www.globo.com 
>www.lalala.org 
>www.kernel.org 
>www.perlmonks.org 
>www.pudim.com 
> 
>fernando em FCORREA ~ 
>$ arq3.pl 
>Insira o site a ser removido: 
>www.uol.com.br 
>site www.uol.com.br removido com sucesso 
> 
>fernando em FCORREA ~ 
>$ cat sites.teste 
>www.google.com 
>www.globo.com 
>www.lalala.org 
>www.kernel.org 
>www.perlmonks.org 
>www.pudim.com 
> 
>fernando em FCORREA ~ 
>$ 
> 
>Em 27/02/07, rafamv1 escreveu: 
>> 
>> no meu continua removendo todo o conteúdo. Veja o meu script: 
>> -------------------------------------------------------------------- 
>> 
>> #!/usr/bin/perl -i.bkp -p 
>> 
>> BEGIN{ 
>> $|=1; 
>> push em ARGV, "/etc/squid/arquivos/liberados/dl_geral"; 
>> print{STDOUT}"Insira o site a ser removido: \n"; 
>> chomp ($site=<>); 
>> } 
>> print {STDOUT}"site $& removido com sucesso\n", undef$_ if/^$site$/ 
>> ------------------------------------------------------------------- 
>> Em (12:03:19), Cascavel Perl Mongers escreveu: 
>> 
>> 
>> >Aqui não... aqui ele remove só a linha q cabe na expressão: 
>> > 
>> >fernando em FCORREA ~ 
>> >$ cat sites.teste 
>> >www.google.com 
>> >www.uol.com.br 
>> >www.globo.com 
>> >www.lalala.org 
>> >www.kernel.org 
>> >www.perlmonks.org 
>> >www.pudim.com 
>> > 
>> >fernando em FCORREA ~ 
>> >$ arq2.pl 
>> >Insira o site a ser removido: www.globo.com 
>> >site www.globo.com removido com sucesso 
>> > 
>> >fernando em FCORREA ~ 
>> >$ cat sites.teste 
>> >www.google.com 
>> >www.uol.com.br 
>> >www.lalala.org 
>> >www.kernel.org 
>> >www.perlmonks.org 
>> >www.pudim.com 
>> > 
>> >fernando em FCORREA ~ 
>> >$ 
>> > 
>> >Em 27/02/07, rafamv1 escreveu: 
>> >> 
>> >> Continua removendo todo o conteúdo. 
>> >> 
>> >> Em (11:52:17), Cascavel Perl Mongers escreveu: 
>> >> 
>> >> 
>> >> >foi mau... na verdade ficaria assim: 
>> >> > 
>> >> >#!perl -i.bkp -p 
>> >> >BEGIN{$|=1;push 
>> >> >@ARGV,"/etc/squid/arquivos/liberados/dl_geral";print{STDOUT}"Insira o 
>> >> >site a ser removido: ";chomp($site= )}print{STDOUT}"site $& 
>> >> >removido com sucesso\n",undef$_ if/^$site$/ 
>> >> > 
>> >> >Em 27/02/07, rafamv1 escreveu: 
>> >> >> 
>> >> >> O Script removeu todo o conteúdo do arquivo. 
>> >> >> 
>> >> >> Em (11:45:17), Cascavel Perl Mongers escreveu: 
>> >> >> 
>> >> >> 
>> >> >> >tá faltando o nome do arquivo... 
>> >> >> > 
>> >> >> >push @ARGV, "/etc/squid/arquivos/liberados/dl_geral"; 
>> >> >> > 
>> >> >> >e aqui: $site=shift; vc tá escrevendo por cima da variavel... 
>> >> >> >ficaria assim: 
>> >> >> > 
>> >> >> >#!/usr/bin/perl -i.bkp -p 
>> >> >> >BEGIN{push @ARGV, "/etc/squid/arquivos/liberados/dl_geral";print 
>> >> >> >"Insira o site a ser 
>removido:\n";chomp($site=<>);print{STDOUT}"site 
>> >> >> >$& removido com sucesso\n",undef$_ if/^$site$/ 
>> >> >> > 
>> >> >> >Em 27/02/07, rafamv1 escreveu: 
>> >> >> >> Alterei o script mas não remove o site do arquivo.. Ficou assim: 
>> >> >> >> #!/usr/bin/perl -i.bkp -p 
>> >> >> >> BEGIN{push 
>> >> >> >> print "Insira o site a ser removido: \n" 
>> >> >> >> $site = ; 
>> >> >> >> chomp $site; 
>> >> >> >> 
>> >> >> 
>> >> 
>> 
>>>>@ARGV,"/etc/squid/arquivos/liberados/dl_geral";$site=shift}print{STDOUT}"site 
>> >> >> >> $& removido com sucesso\n",undef$_ if/^$site$/ 
>> >> >> >> 
>> >> >> >> 
>> >> >> >> 
>> >> >> >> 
>> >> >> >> Em (11:31:37), Cascavel Perl Mongers escreveu: 
>> >> >> >> 
>> >> >> >> 
>> >> >> >> >vc tem q passar o site como parametro... por exemplo: 
>> >> >> >> > 
>> >> >> >> >./remove_site.pl URL 
>> >> >> >> > 
>> >> >> >> >Em 27/02/07, rafamv1 escreveu: 
>> >> >> >> >> 
>> >> >> >> >> criei o script abaixo, ele executa mas não altera em nada o 
>> >arquivo 
>> >> >e 
>> >> >> >nem 
>> >> >> >> >> me pede o site para remoção. 
>> >> >> >> >> 
>> >> >> >> >> Em (11:21:27), Cascavel Perl Mongers escreveu: 
>> >> >> >> >> 
>> >> >> >> >> 
>> >> >> >> >> >#!/usr/bin/perl -i.bkp -p 
>> >> >> >> >> >BEGIN{push 
>> >> >> >> >> 
>> >> >> >> 
>> >> >> 
>> >> 
>> 
>>>>>>@ARGV,"/etc/squid/arquivos/liberados/dl_geral";$site=shift}print{STDOUT}"site 
>> >> >> >> >> >$& removido com sucesso\n",undef$_ if/^$site$/ 
>> >> >> >> >> > 
>> >> >> >> >> >Em 27/02/07, rafamv1 escreveu: 
>> >> >> >> >> >> Cara, não consegui colocar seu script para funcionar. 
>Tentei 
>> >> >criar 
>> >> >> >um 
>> >> >> >> >> >> arquivo .pl com o conteúdo, mas não funcionou. 
>> >> >> >> >> >> 
>> >> >> >> >> >> 
>> >> >> >> >> >> Em (10:45:25), Cascavel Perl Mongers escreveu: 
>> >> >> >> >> >> 
>> >> >> >> >> >> 
>> >> >> >> >> >> >pode... 
>> >> >> >> >> >> > 
>> >> >> >> >> >> >Em 27/02/07, rafamv1 escreveu: 
>> >> >> >> >> >> >> Mas eu posso colocar esse script que você mandou em um 
>> >> arquivo 
>> >> >> >.pl 
>> >> >> >> ? 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> >> Em (10:31:14), Cascavel Perl Mongers escreveu: 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >E pq vc não usa algo parecido com o script q eu 
>mandei?! 
>> >ele 
>> >> >> faz 
>> >> >> >> >> >> >> >exatamente isso q vc falou... 
>> >> >> >> >> >> >> > 
>> >> >> >> >> >> >> >repetindo: 
>> >> >> >> >> >> >> > 
>> >> >> >> >> >> >> >perl -i.bkp -pe 'BEGIN{push 
>> >> >> >> >> >> >> >@ARGV,"/etc/squid/arquivos/liberados/dl_geral";$s 
>> >> >> >> >> >> >> >ite=shift}print{STDOUT}"site $& removido com 
>> >> >sucesso\n",undef$_ 
>> >> >> >> >> >> >> >if/^$site$/' SITE 
>> >> >> >> >> >> >> > 
>> >> >> >> >> >> >> >Em 27/02/07, rafamv1 escreveu: 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> Oi André, estou tentando aprimorar meus 
>conhecimentos. 
>> >> >> >Qualquer 
>> >> >> >> >> >> >sujestão 
>> >> >> >> >> >> >> >de 
>> >> >> >> >> >> >> >> site ou livro que você puder me passar, será uma boa 
>> >> ajuda. 
>> >> >> >> >Quanto 
>> >> >> >> >> >ao 
>> >> >> >> >> >> >> >> script, eu não quero criar um outro arquivo mas 
>remover 
>> >o 
>> >> >> site 
>> >> >> >> >> >> digitado 
>> >> >> >> >> >> >> >como 
>> >> >> >> >> >> >> >> argumento para a variável $site da lista dl_geral. 
>> >Recebi 
>> >> o 
>> >> >> >> >script 
>> >> >> >> >> >> >> abaixo, 
>> >> >> >> >> >> >> >> no entanto ele remove todo o conteúdo do arquivo. 
>Acho 
>> >que 
>> >> >> >seria 
>> >> >> >> >o 
>> >> >> >> >> >> >> >">"...mas 
>> >> >> >> >> >> >> >> não estou entendendo a lógica de como retirar do 
>> arquivo 
>> >> >> >apenas 
>> >> >> >> o 
>> >> >> >> >> >> >> conteúdo 
>> >> >> >> >> >> >> >> de $site. 
>> >> >> >> >> >> >> >> 
>> >----------------------------8<---------------------------- 
>> >> >> >> >> >> >> >> #!/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 
>> >> >> >> >$arquivo: 
>> >> >> >> >> >> >$!"; 
>> >> >> >> >> >> >> >> my @linhas = ; 
>> >> >> >> >> >> >> >> close (LIBERADOS); 
>> >> >> >> >> >> >> >> print "@linhas\n"; 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> # leitura 
>> >> >> >> >> >> >> >> print "Insira o site a ser removido: "; 
>> >> >> >> >> >> >> >> my $site = ; 
>> >> >> >> >> >> >> >> chomp $site; 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> # execução 
>> >> >> >> >> >> >> >> open(LIBERADOS,">",$arquivo) or die "Nao pode abrir 
o 
>> >> >arquivo 
>> >> >> >> >> >> $arquivo: 
>> >> >> >> >> >> >> >$!"; 
>> >> >> >> >> >> >> >> foreach my $linha (@linhas){ 
>> >> >> >> >> >> >> >> if ($linha eq $site){ 
>> >> >> >> >> >> >> >> print "O site $site foi removido com sucesso\n"; 
>> >> >> >> >> >> >> >> } 
>> >> >> >> >> >> >> >> else{ 
>> >> >> >> >> >> >> >> print LIBERADOS "$linha\n"; 
>> >> >> >> >> >> >> >> } 
>> >> >> >> >> >> >> >> } 
>> >> >> >> >> >> >> >> close(LIBERADOS) or die "Nao pode fechar o arquivo 
>> >> >$arquivo: 
>> >> >> >> $!"; 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> else { 
>> >> >> >> >> >> >> >> open ( LIBERADOS,">>$arquivo" ) or die ( "Nao pode 
>> abrir 
>> >o 
>> >> >> >> >arquivo 
>> >> >> >> >> >> >> >> $arquivo: $!" ); 
>> >> >> >> >> >> >> >> print ( LIBERADOS "\n$site" ); 
>> >> >> >> >> >> >> >> close ( LIBERADOS ) or die ( "Nao pode fechar o 
>arquivo 
>> >> >> >> $arquivo: 
>> >> >> >> >> >$!" 
>> >> >> >> >> >> >> >> ); 
>> >> >> >> >> >> >> >> system("squid -k reconfigure"); 
>> >> >> >> >> >> >> >> print " O site foi adicionado com sucesso.\n"; 
>> >> >> >> >> >> >> >> } 
>> >> >> >> >> >> >> >> 
>> >---------------------------->8---------------------------- 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> Em (08:28:49), Cascavel Perl Mongers escreveu: 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> >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 = ; 
>> >> >> >> >> >> >> >> >> close (LIBERADOS); 
>> >> >> >> >> >> >> >> >> print "@linhas\n"; 
>> >> >> >> >> >> >> >> >> print "Insira o site a ser removido: "; 
>> >> >> >> >> >> >> >> >> my $site = ; 
>> >> >> >> >> >> >> >> >> 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(r) 
>> >> >> >> >> >> >> >> >> Windows(r) 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 
>> >> >> >> >> >> >> >> > 
>> >> >> >> >> >> >> >> >_______________________________________________ 
>> >> >> >> >> >> >> >> >Cascavel-pm mailing list 
>> >> >> >> >> >> >> >> >Cascavel-pm em pm.org 
>> >> >> >> >> >> >> >> >http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> >> >> >> >> > 
>> >> >> >> >> >> >> >> >---------- 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> >> _______________________________________________ 
>> >> >> >> >> >> >> >> Cascavel-pm mailing list 
>> >> >> >> >> >> >> >> Cascavel-pm em pm.org 
>> >> >> >> >> >> >> >> http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> >> >> >> >> 
>> >> >> >> >> >> >> > 
>> >> >> >> >> >> >> >-- 
>> >> >> >> >> >> >> >[]'s Fernando 
>> >> >> >> >> >> >> >_______________________________________________ 
>> >> >> >> >> >> >> >Cascavel-pm mailing list 
>> >> >> >> >> >> >> >Cascavel-pm em pm.org 
>> >> >> >> >> >> >> >http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> >> >> >> > 
>> >> >> >> >> >> >> >---------- 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> >> _______________________________________________ 
>> >> >> >> >> >> >> Cascavel-pm mailing list 
>> >> >> >> >> >> >> Cascavel-pm em pm.org 
>> >> >> >> >> >> >> http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> >> >> >> 
>> >> >> >> >> >> > 
>> >> >> >> >> >> >-- 
>> >> >> >> >> >> >[]'s Fernando 
>> >> >> >> >> >> >_______________________________________________ 
>> >> >> >> >> >> >Cascavel-pm mailing list 
>> >> >> >> >> >> >Cascavel-pm em pm.org 
>> >> >> >> >> >> >http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> >> >> > 
>> >> >> >> >> >> >---------- 
>> >> >> >> >> >> 
>> >> >> >> >> >> 
>> >> >> >> >> >> 
>> >> >> >> >> >> _______________________________________________ 
>> >> >> >> >> >> Cascavel-pm mailing list 
>> >> >> >> >> >> Cascavel-pm em pm.org 
>> >> >> >> >> >> http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> >> >> 
>> >> >> >> >> > 
>> >> >> >> >> >-- 
>> >> >> >> >> >[]'s Fernando 
>> >> >> >> >> >_______________________________________________ 
>> >> >> >> >> >Cascavel-pm mailing list 
>> >> >> >> >> >Cascavel-pm em pm.org 
>> >> >> >> >> >http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> >> > 
>> >> >> >> >> >---------- 
>> >> >> >> >> 
>> >> >> >> >> 
>> >> >> >> >> 
>> >> >> >> >> _______________________________________________ 
>> >> >> >> >> Cascavel-pm mailing list 
>> >> >> >> >> Cascavel-pm em pm.org 
>> >> >> >> >> http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> >> 
>> >> >> >> > 
>> >> >> >> >-- 
>> >> >> >> >[]'s Fernando 
>> >> >> >> >_______________________________________________ 
>> >> >> >> >Cascavel-pm mailing list 
>> >> >> >> >Cascavel-pm em pm.org 
>> >> >> >> >http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> > 
>> >> >> >> >---------- 
>> >> >> >> 
>> >> >> >> 
>> >> >> >> 
>> >> >> >> _______________________________________________ 
>> >> >> >> Cascavel-pm mailing list 
>> >> >> >> Cascavel-pm em pm.org 
>> >> >> >> http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> >> 
>> >> >> > 
>> >> >> >-- 
>> >> >> >[]'s Fernando 
>> >> >> >_______________________________________________ 
>> >> >> >Cascavel-pm mailing list 
>> >> >> >Cascavel-pm em pm.org 
>> >> >> >http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> > 
>> >> >> >---------- 
>> >> >> 
>> >> >> 
>> >> >> 
>> >> >> _______________________________________________ 
>> >> >> Cascavel-pm mailing list 
>> >> >> Cascavel-pm em pm.org 
>> >> >> http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> >> 
>> >> > 
>> >> >-- 
>> >> >[]'s Fernando 
>> >> >_______________________________________________ 
>> >> >Cascavel-pm mailing list 
>> >> >Cascavel-pm em pm.org 
>> >> >http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> > 
>> >> >---------- 
>> >> 
>> >> 
>> >> 
>> >> _______________________________________________ 
>> >> Cascavel-pm mailing list 
>> >> Cascavel-pm em pm.org 
>> >> http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> >> 
>> > 
>> >-- 
>> >[]'s Fernando 
>> >_______________________________________________ 
>> >Cascavel-pm mailing list 
>> >Cascavel-pm em pm.org 
>> >http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> > 
>> >---------- 
>> 
>> 
>> 
>> _______________________________________________ 
>> Cascavel-pm mailing list 
>> Cascavel-pm em pm.org 
>> http://mail.pm.org/mailman/listinfo/cascavel-pm 
>> 
> 
>-- 
>[]'s Fernando 
>_______________________________________________ 
>Cascavel-pm mailing list 
>Cascavel-pm em pm.org 
>http://mail.pm.org/mailman/listinfo/cascavel-pm 
> 
>---------- 




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