Jump to content


r0n4ld0_

Member Since 08/05/2004
Offline Last Active 23/05/2004, 20:19
-----

Topics I've Started

Alguem Ae Sabe Abiri Dois Arquivo Txt

09/05/2004, 10:35

Ae galera to com uma duvida eu to querendo abrir dois arquivo txt, e para ler linha por linha e manda um get como vcs pode ver abaixo.
#!/usr/local/perl/bin
use IO::Socket;
print "\n\n\n\n\n\n";
print "R0N4LD0_\n\n\n\n";
$porta = 80;
open(site,"<site.txt") or die "nao abriu o arquivo site.txt";
{
$site[$a] = $_;
chomp $site[$a];
open(test,"<test.txt") or die "nao abriu o arquivo test.txt";
$test[$a] = $_;
chomp $test[$a];
$a++;
$b++;
}
for ($a=0;$a<$b;$a++)
{

$sock = IO::Socket::INET->new (
Proto => "tcp",
PeerAddr => "$site",
PeerPort => "$porta",
) or die"\nnao conectou ao site $site";
select((select($sock), $| = 1)[0]);
print $sock "GET $test[$a] HTTP/1.0\r\n\r\n";

$resul =<$sock>;
close($sock);
if ($resul =~/200/)
{
open(arquivo,">>test.txt");
print arquivo "$site$test[$a]\n";
close(arquivo);
print "$site$test[$a] [Ok] $site$test[$a]\n";
}
else {
print "$site$test[$a] [NAO]\n";
}
$test[$a] ="";
}

Eu quero saber oq esta errado e q vcs me falem com eu faço. Muito Obrigado

IPB Skin By Virteq