On 26 Apr 00 at 19:40, Station 1 wrote:
> Oi , estou com um duvida, sera que alguem pode me ajudar�.
>
> Eu tenho dois sites que estao em servidores diferentes, e quero que
> o programa cgi do site A abra um arquivo .txt que esta no site B, e
> execute e mostre o resultado no site A. Isto eh possivel ? como? Eu
> sei usar o :
>
> open (file,"../arquivo.txt");
> @info=<file>;
> close (file);
>
> mas isto nao da certo se eu colocar http://www.site.com/file.txt !!!
Caramba! O Perl � bom mas n�o � m�gico! Para fazer o que voc� quer,
voc� precisa acessar o outro site e pegar o arquivo de l�, certo?
Certo! Ent�o, d� uma olhada no c�digo abaixo ;)
#!/usr/bin/perl
use IO::Socket;
$server = 'www.site.com';
$port = 80;
$document = '/file.txt';
$remote = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$server,
PeerPort=>$port, Reuse=>1) or die "Can't connect to \"$server\"\n";
$remote->autoflush(1);
print $remote "GET $document HTTP/1.0\n\n";
@pagina = <$remote>;
$pagina = "@pagina";
close $remote;
$pagina =~s/\n /\n/g;
($cabecalho, @arquivo) = split(/\n\n/, $pagina);
$arquivo = "@arquivo";
Enjoy!
[]'s
Charles Roberto Pilger ([EMAIL PROTECTED])
Work: http://www.unisinos.br Personal: http://CharlesPilger.i.am
ICQ: 636464 - WCQ: 14074 (http://www.wcq.com.br)
http://www.mrweb.com.br/perl/
�������������>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
������������==
