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 "$_");
        }
}

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

Journaling de arquivos

Contagem de linhas em Perl (= wc -l)

arruma_nomes.pl

Script para adicionar sites ao Squid