7 replies to this topic

[r0n4ld0_]

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

[r0n4ld0_]

aki fala que naum conecto ao at C:/.....
vc mudo alguma coisa no codigo???
ja tentei de tudo e naum da certo

[jgcl]

Ai cara, vi duas linhas que eu não acho que estejam certas:

open(site,"<site.txt") or die "nao abriu o arquivo site.txt";

open(test,"<test.txt") or die "nao abriu o arquivo test.txt";

Creio que se você tirasse o < iria funcionar.

[]'s
João Gabriel

[r0n4ld0_]

ae eu subistitui e deu esse erro aki "Invalid argument at C:\.......

[prix]

tenta no arquivo site.txt colocar o caminho completo assim:

c:/caminho/site.txt

quanto ao "<" não ah necessidade de utiliza-lo. Mas não a problema em usa-lo também não.