[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