Pedro que tal aprender lendo coisas divertidas ?<br>Perl tem uma ótima documentação auto explicativa, alguns desses documentos estão traduzidos,<br>você pode encontra-los aqui:<br><a href="http://www.perl.org.br">http://www.perl.org.br</a><br>
<br>Comece lendo a introdução:<br><a href="http://www.perl.org.br/Perldoc/V500807/Perlintro">http://www.perl.org.br/Perldoc/V500807/Perlintro</a><br><br>Depois de ler, se tiver dúvidas pergunta!<br><br>Ótimos estudos!<br>
<br>[]'s<br><br><div class="gmail_quote">2009/4/8 Pedro César <span dir="ltr"><<a href="mailto:pedrocesar@tecdom.com.br">pedrocesar@tecdom.com.br</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Puxa, e eu tava achando massa meu código, rsrsrs, é um de meus primeiros.<br><br>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.<br>
<br>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.<br><br>Muitíssimo obrigado desde ja.<br><br><div class="gmail_quote">
2009/4/8 Otávio Fernandes <span dir="ltr"><<a href="mailto:otaviof@gmail.com" target="_blank">otaviof@gmail.com</a>></span><div><div></div><div class="h5"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Olá Pedro,<br>
<br>
Estou vendo, realmente, que você está começando com Perl. Bom,<br>
primeira coisa, você está passando uma URI para acessar o arquivo...<br>
acredito que você está rodando o script no mesmo servidor onde este<br>
arquivo se encontra, então, você tem que passar path para acessar<br>
diretamente, exemplo: "my $file = q{/var/tmp/arquivo.php};". O script<br>
ficaria assim (com algumas melhorias):<br>
<br>
#!/usr/bin/env perl<br>
<br>
use strict;<br>
use warnings;<br>
<br>
my $file = q{/var/tmp/arquivo.php};<br>
<br>
open( my $FH, q{<}, $file ) or die $!;<br>
while( <$FH> ) {<br>
print;<br>
}<br>
close( $FH );<br>
<br>
__END__<br>
<br>
Caso você queria acessar este arquivo remoto, via protocolo HTTP, você<br>
pode usar o módulo LWP (por exemplo).<br>
<br>
Dúvidas? Pergunta ai.<br>
<br>
um abraço,<br>
<font color="#888888"><br>
--<br>
Otávio Fernandes <otaviof at <a href="http://gmail.com" target="_blank">gmail.com</a>><br>
<a href="http://otaviof.blogspot.com/" target="_blank">http://otaviof.blogspot.com/</a><br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</font></blockquote></div></div></div><br><br clear="all"><div><div></div><div class="h5"><br>-- <br>Pedro César<br>Analista de Suporte<br>Microsoft Certified Professional - MCP<br>Blog: <a href="http://www.tecdom.com.br/blog" target="_blank">www.tecdom.com.br/blog</a><br>
Fone: 82-9317-8802<br>
msn: <a href="mailto:pedrocesar@tecdom.com.br" target="_blank">pedrocesar@tecdom.com.br</a> <br>Registered Linux User #282860<br><br><br>"Autoridades são alguns, <br>e só por algun tempo.<br>Enquanto cidadãos somos todos nós,<br>
e durante toda a vida".<br>
Prof. Hugo de Britto Machado<br><br><br>
</div></div><br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>
--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>