Remove comentarios de scripts

• Download comentarios.pl.txt
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl -w

#Remove todos os comentarios do
#ShellScript ou Perl.
#Mas os comentarios nesse estilo:"blabla #blabla"
#permanecerao.
#Carlos Carvalho<carlos_lnx@yahoo.com.br>

use strict;
my $file = $ARGV[0] or die "Use $0 filename";
open(FILE_IN,"<$file");
open(FILE_OUT,">$file.out");
while (<FILE_IN>) {
        if ($_ !~ /^#/) {
                print(FILE_OUT "$_");
        }
}

Usando ARGV como login

Eliminando caracteres indesejados

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

Conversão de textos UTF-8 para ISO8859-1

Manipulação de arquivos