Tratamento de Arquivo

flpe007
(usa Debian)

Enviado em 06/08/2008 - 09:16h

Bom dia Galera,

estou iniciando alguns estudos no Perl, por conta de um Nagios que estou tendo que colocar aqui na serviço, e eu não sou programador, sei apenas o básico.
andei procurando alguns tutos, e até que consegui montar o scrpit que eu queria, mas tem uma parte do código que eu gostaria de fazer um negócio que eu não sei se existe como e gostaria da ajuda de algum de vocês.

minha duvida é a seguinte...

eu tenho uma pasta com alguns arquivos txt, eles são arquivos que tem o nº IP de um determinado host, por exemplo...

na pasta eu crio o arquivo "192.168.1.10", "192.168.1.40", etc...

no meu código eu uso o nome do aquivo pra abri-lo e testar se uma informação é falsa ou não...

mas eu queria mesmo é não precisar fazer isto, por exemplo, no meu código eu coloquei o seguinte:

open (my $host, "</home/teste/estudo_perl/hosts/192.168.1.73") or die "Não foi possivel abrir o arquivo, criando um novo: $!"

gostaria de poder fazer com que o Perl entendesse algo do tipo:

open (my $host, "</home/teste/estudo_perl/hosts/$host") or die "Não foi possivel abrir o arquivo, criando um novo: $!"


existe algum modo de fazer isto???


valeu!!!

carlosjunges
(usa Slackware)

Enviado em 08/02/2009 - 19:39h

Bem, voce pode declarar uma variavel no inicio do script para cada arquivo txt do diretório, o que tornaria um pouco mais facil, mas não resolveria efetivamente o problema. Pode também usar a Perl para ler os arquivos do diretório, colocar em uma array e depois tentar abrir, como em:

#!/bin/perl
opendir (aqui, "/home/krlos");
@arquivos = readdir aqui;
if (@arquivos){
print "Arquivos existem\n";
}
else{
print "Arquivos nao existem";
}

Se a array arquivos for verdadeira os arquivos existem, se não ele avisa. Pronto, só ageitar :)