Title: [CODE] Removedor de Comentários - Perl
Post by: rodweb on 06 de June , 2006, 02:32:55 PM
Post by: rodweb on 06 de June , 2006, 02:32:55 PM
Script para remover comentários em Shell Script e Perl...ou qualquer outra que os comentários sejam "#"...
Flws...
Code Select
#!/usr/bin/perl
#Programa: RØD Remover of Commentaries
#Versão: 1.0
#SO's: Linux e Windows.
#Descrição: Remove comentários de Shell Script e Perl.
#Coded By: Ø Rodrigo Ø - Digital Underground Group
$ver="v. 1.0";
print "\n+-----[RØD Remover of Commentaries ]-----+\n";
print "|--------------------------------$ver--|\n";
print "| |\n";
print "| Removedor de Comentários |\n";
print "| |\n";
print "| Coded By Ø Rodrigo Ø |\n";
print "+----------------------------------------+\n";
#sleep 3;
print "\nDigite o nome do arquivo: ";
$arquivo=<STDIN>;
chomp($arquivo);
open(ABRE,"$arquivo");
open(SALVA,">novo_$arquivo");
@linhas=<ABRE>;
print "\n\n------------------------------------------\n";
foreach $palavras(@linhas)
{
if ($palavras =~ /#!\/usr\/bin\/perl/)
{
print SALVA "$palavras\n";
print "$palavras\n";
}
elsif ($palavras =~ /#!\/bin\/bash/)
{
print SALVA "$palavras\n";
print "$palavras\n";
}
else
{
$palavras =~ s/#.*//gi;
print "$palavras\n";
print SALVA "$palavras\n";
}
}
print "------------------------------------------\n";
print SALVA "\nComents Removed By RØD Coment Removal $ver";
close(SALVA);
close(ABRE);
Flws...
Title: Re: [CODE] Removedor de Comentários - Perl
Post by: slul on 06 de June , 2006, 02:44:16 PM
Post by: slul on 06 de June , 2006, 02:44:16 PM
legal pra estudo mas nao tao legal pra utilização né 
do mesmo jeito parabens rodrigo tem postado bastante codes parece estar evoluindo nao sei se vc sabe trabalhar com socks se nao sabe deveria aprender dai sim vc conseguiria fazer otimos programas em perl!
parabens pelo code
do mesmo jeito parabens rodrigo tem postado bastante codes parece estar evoluindo nao sei se vc sabe trabalhar com socks se nao sabe deveria aprender dai sim vc conseguiria fazer otimos programas em perl!
parabens pelo code
Title: Re: [CODE] Removedor de Comentários - Perl
Post by: Shady on 06 de June , 2006, 05:06:37 PM
Post by: Shady on 06 de June , 2006, 05:06:37 PM
Bem legal, ta aprendendo bastante 
Title: Re: [CODE] Removedor de Comentários - Perl
Post by: slul on 06 de June , 2006, 05:14:14 PM
Post by: slul on 06 de June , 2006, 05:14:14 PM
Só uma correção de um erro que vi agora
nao eh
Remover of commentaries
é
Commentaries Remover
=P
se vc fala isso pra minha professora de ingles ela simplesmente te mata =P
me corrijam se eu tiveer errado em relação ao Remover of Commentaries
eu acho q to certo =P
nao eh
Remover of commentaries
é
Commentaries Remover
=P
se vc fala isso pra minha professora de ingles ela simplesmente te mata =P
me corrijam se eu tiveer errado em relação ao Remover of Commentaries
eu acho q to certo =P
Title: Re: [CODE] Removedor de Comentários - Perl
Post by: rodweb on 06 de June , 2006, 05:23:53 PM
Post by: rodweb on 06 de June , 2006, 05:23:53 PM
(Obs) essa parte aki não precisa ter
Slul
É só pra estudo msm hehe, e meu inglês é o pior, eu traduzi isso no Google kkkkkk, e ainda não começei a mexer com sockets ainda, mais ja peguei um texto aki...
Flws...
Code Select
print SALVA "\nComents Removed By RØD Coment Removal $ver";
Slul
É só pra estudo msm hehe, e meu inglês é o pior, eu traduzi isso no Google kkkkkk, e ainda não começei a mexer com sockets ainda, mais ja peguei um texto aki...
Flws...
Title: Re: [CODE] Removedor de Comentários - Perl
Post by: slul on 06 de June , 2006, 05:29:26 PM
Post by: slul on 06 de June , 2006, 05:29:26 PM
Quote from: "Ø Rodrigo Ø"(Obs) essa parte aki não precisa terCode Selectprint SALVA "\nComents Removed By RØD Coment Removal $ver";
Slul
É só pra estudo msm hehe, e meu inglês é o pior, eu traduzi isso no Google kkkkkk, e ainda não começei a mexer com sockets ainda, mais ja peguei um texto aki...
Flws...
ótimo cara continua nesse ritmo q logo logo teremos novos xpl em perl no fórum!
vai que eh tua tafarel!
Title: Re: [CODE] Removedor de Comentários - Perl
Post by: Shady on 06 de June , 2006, 06:34:13 PM
Post by: Shady on 06 de June , 2006, 06:34:13 PM
Na verdade e "Comments Remover" hehe... "commentaries" nao existe 
Title: Re: [CODE] Removedor de Comentários - Perl
Post by: rodweb on 06 de June , 2006, 07:07:41 PM
Post by: rodweb on 06 de June , 2006, 07:07:41 PM
(//http://img222.imageshack.us/img222/594/imagem0aw.th.jpg) (//http://img222.imageshack.us/my.php?image=imagem0aw.jpg)
o google não sabe traduzir
o google não sabe traduzir
Title: Re: [CODE] Removedor de Comentários - Perl
Post by: Shady on 06 de June , 2006, 07:29:19 PM
Post by: Shady on 06 de June , 2006, 07:29:19 PM
Acho que me expressei mal. Quando disse que "nao existe", quis dizer que nao e usado. Usa-se "comments".