[Cascavel-pm] Script Perl para ler arquivo PHP
Otávio Fernandes
otaviof em gmail.com
Quarta Abril 8 18:04:16 PDT 2009
Olá Pedro,
Estou vendo, realmente, que você está começando com Perl. Bom,
primeira coisa, você está passando uma URI para acessar o arquivo...
acredito que você está rodando o script no mesmo servidor onde este
arquivo se encontra, então, você tem que passar path para acessar
diretamente, exemplo: "my $file = q{/var/tmp/arquivo.php};". O script
ficaria assim (com algumas melhorias):
#!/usr/bin/env perl
use strict;
use warnings;
my $file = q{/var/tmp/arquivo.php};
open( my $FH, q{<}, $file ) or die $!;
while( <$FH> ) {
print;
}
close( $FH );
__END__
Caso você queria acessar este arquivo remoto, via protocolo HTTP, você
pode usar o módulo LWP (por exemplo).
Dúvidas? Pergunta ai.
um abraço,
--
Otávio Fernandes <otaviof at gmail.com>
http://otaviof.blogspot.com/
Mais detalhes sobre a lista de discussão Cascavel-pm