[CODE] Removedor de Comentários - Perl

[rodweb]

Script para remover comentários em Shell Script e Perl...ou qualquer outra que os comentários sejam "#"...

Code Select Expand

#!/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...

[slul]

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

[Shady]

Bem legal, ta aprendendo bastante

[slul]

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

[rodweb]

(Obs) essa parte aki não precisa ter

Code Select Expand

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...

[slul]

(Obs) essa parte aki não precisa ter

Code Select Expand

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...

ótimo cara continua nesse ritmo q logo logo teremos novos xpl em perl no fórum!

vai que eh tua tafarel!

[Shady]

Na verdade e "Comments Remover" hehe... "commentaries" nao existe

[rodweb]

o google não sabe traduzir

[Shady]

Acho que me expressei mal. Quando disse que "nao existe", quis dizer que nao e usado. Usa-se "comments".