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