[Perl] AYUDA con Request POST ##...URGE!!!

[Jose Antonio Galicia]

On Thu, 19 Sep 2002, Luis Medrano Zaldivar wrote:

> La cuestion es que quiero llenar formas como esta
> "http://www.rent.net/" y ponerle la ciudad y el estado.
> Me encontre este ejemplo en el web de como llenar la
> formas usando post

 Si pretendes hacer un POST harias esto:

	use LWP::UserAgent;

	%param = ( param1=>'foo', param2=>'bar' );

	$url = 'http://www.rent.net/';

	my $ua = new LWP::UserAgent;
	$ua->agent("Auto Form/0.1 ");
	my $res = $ua->post($url, \%param);

	print $res->content;

 en cambio si es con GET

	use LWP::UserAgent;

	%param = ( param1=>'foo', param2=>'bar' );

	$p = join("&", map {"$_=$$param{$_}"} (keys %$param));
	$url = 'http://www.rent.net/';

	my $ua = new LWP::UserAgent;
	$ua->agent("Auto Form/0.1 ");
	my $res = $ua->get($url);

	print $res->content;

> "http://www.blazonry.com/devnotes/submit_allstar.txt".

 Es muy claro el código. El problema es que, me imagino, no
sabes como funciona el protocolo HTTP. Eso se soluciona de
otra manera :)

> Les agradecere todos sus comentarios. (siempre y cuando no sean insultos).

 ¿Por que no los insultativos asquerosa rata piojosa?

 Saludos,
 Toño
---
A boy gets to be a man when a man is needed.
		-- John Steinbeck

 Ps. Naaaa... no se crea... es broma... :)