Oi pessoal
S� uma pequena corre��o:
> #!/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);
Aqui o correto �:
($cabecalho, @arquivo) = split(/\015\012\015\012/, $pagina);
> $arquivo = "@arquivo";
[]'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.
������������==
