Показать сообщение отдельно
Старый 06.09.2002, 00:55     # 2
Stasik
Registered User
 
Аватар для Stasik
 
Регистрация: 27.03.2002
Адрес: дома
Сообщения: 1 660

Stasik Известность не заставит себя ждатьStasik Известность не заставит себя ждать
можно

php:
Код:
$myFile=@fopen("http://www.domain.com/script.php?var=val","r");
@fclose($myFile);
perl
Код:
use IO::Socket;

$server = "www.domain.com";
$remote = IO::Socket::INET->new(
        Proto=>"tcp",
        PeerAddr=>$server,
        PeerPort=>"80",
        Reuse=>1,
        Type => SOCK_STREAM)
 or print "Can't connect to \"$server\"  ($!)\n";
$remote -> send ("GET http://www.domain.com/script.php?var=val HTTP/1.0\n\n", 0) || return "Can't send query: $!";
__________________
Всё будет хорошо!
Stasik вне форума