IMHO.WS - Послать запрос из скрипта

IMHO.WS (http://www.imho.ws/index.php)

- Веб-программирование (http://www.imho.ws/forumdisplay.php?f=29)

- - Послать запрос из скрипта (http://www.imho.ws/showthread.php?t=10548)

timur-kar

06.09.2002 00:15

Послать запрос из скрипта

Можно ли послать запрос (как в html-form, post или get) из скрипта (perl или php), можно ли сделать это так, чтобы пользователь этого не видел, то есть его не отправляли по адресу get-запроса ?

Stasik

06.09.2002 00:55

можно :)

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: $!";

timur-kar

06.09.2002 10:42

Огромное спасибо. А Post возможен ?

@ndrew

06.09.2002 12:14

Пример поста на PHP...

Stasik

07.09.2002 01:05

на перле соответсвенно :xex:

asfyvv

07.09.2002 12:50

post на perl:

use strict;
use LWP::UserAgent;

my $x1 = ''blabla'';
my $x2 = 666;
my $x3 = "kuku";
my $data = 'par1=' . $x1 . '&par2=' . $x2 . '&par3=' . $x3;

my $ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(POST => 'http://www.site.kharkov.ua/script.asp');
$req->content_type('application/x-www-form-urlencoded');
$req->content($data);

my $res = $ua->request($req);

print $res->as_string;

=============

get на perl

use strict;
use LWP::Simple;

my $u = 'http://www.site.kharkov.ua/script.cgi?par1=666&par2=blabla' ;

my $doc = get "$u";

print $doc;

Часовой пояс GMT +4, время: 13:04.