Script em Perl que recebe como argumento o site a ser inserido em lista de acesso liberado do Squid.

• Download squid.pl
• Enviar nova versão

Esconder código-fonte

#!/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: $!" );
my @linhas = <LIBERADOS>;
close (LIBERADOS);
print "Insira o site a ser liberado: ";
my $site = <STDIN>;
chomp $site;
open ( LIBERADOS,"$arquivo" ) or die ( "Nao pode abrir o arquivo: $!" );

my $linhas = "@linhas";
if ($linhas =~ $site) {
print " O site ja existe na lista liberada.\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";
}

script para localizar conteudo de arquivo

Inserindo sites em Lista do Squid

arruma_nomes.pl

Contagem de linhas em Perl (= wc -l)

Script que procura uma palavra em um arquivo.

Nenhum comentário foi encontrado.