Solfier
-
Total de itens
1 -
Registro em
-
Última visita
Sobre Solfier
Solfier's Achievements
0
Reputação
-
bom dia, tenho o seguinte codigo: #!/usr/bin/perl -w print "Content-type: text/html\r\n\r\n"; $EnviaBMF_esalq_bmf1 = "/mnt/arquivos/ATUALIZA/agrocast/bmf/esalq_bmf.txt"; $EnviaBMF_esalq_bmf2 = "/mnt/arquivos/SERVICOS/ESTADO/BMF/esalq_bmf.txt"; #$teste = "/mnt/teste.txt"; print <<HTML; <HTML> <HEAD> <TITLE>Teste</TITLE> </HEAD> <BODY> <H1>Verificacao de arquivos</H1> HTML print "<P>ENVIA_BMF<BR>"; print "<FONT SIZE=2>"; print $EnviaBMF_esalq_bmf1; print "</FONT><BR>"; if ( -z $EnviaBMF_esalq_bmf1 ) { print "S:\\ATUALIZA\\agrocast\\bmf\\esalq_bmf.txt - <B>EXISTE</B>"; } else { print "S:\\ATUALIZA\\agrocast\\bmf\\esalq_bmf.txt - <FONT COLOR=RED><B>não EXISTE</B></FONT>"; } print "<BR>"; if ( -z $EnviaBMF_esalq_bmf2 ) { print "S:\\SERVICOS\\ESTADO\\BMF\\esalq_bmf.txt - <B>EXISTE</B>"; } else { print "S:\\SERVICOS\\ESTADO\\BMF\\esalq_bmf.txt - <FONT COLOR=RED><B>não EXISTE</B></FONT>"; } exit; [/codebox] /mnt/arquivos é um diretório montado de um outro servidor. o problema: se eu executo o arquivo .pl como "perl arquivo.pl", os if -z retornam true. Porém, quando executo pelo navegador, esses if -z retornam false. Caso o teste seja feito com um arquivo local, no navegador retorna true. Alguma idéia?