[Cascavel-pm] Script Perl para ler arquivo PHP

[Pedro César]

Puxa, e eu tava achando massa meu código, rsrsrs, é um de meus primeiros.

Vê só, já que você me deu a "brecha" vou pedir duas coisas, a primeira é
comentar o código que você me fez, basicamente não entendi por exemplo o
"my" na frente do $file e o q{<} no open.

A segunda é que gostaria que me mostrasse como usar o modulo sugerido, pois
o acesso é remoto mesmo, se puder fazer o código e comentar, me ajuda muito.

Muitíssimo obrigado desde ja.

2009/4/8 Otávio Fernandes <otaviof em gmail.com>

> 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/
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Pedro César
Analista de Suporte
Microsoft Certified Professional - MCP
Blog: www.tecdom.com.br/blog
Fone: 82-9317-8802
msn: pedrocesar em tecdom.com.br
Registered Linux User #282860


"Autoridades são alguns,
e só por algun tempo.
Enquanto cidadãos somos todos nós,
e durante toda a vida".
Prof. Hugo de Britto Machado
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20090408/e5900d48/attachment.html>