Discussion :

[norkius]

Bonjour,

Je suis entièrement débutante en PERL et je patouille dans un programme déjà écrit qui cherche simplement à joindre un site web et lire et interpréter la réponse du site .
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
$url = new URI::URL($_url);
	my $ua  = new LWP::UserAgent;
$ua->timeout(2000);
	my $resp = $ua->get($url);
	my $content = $resp->content;	
 
	print "content : ";
	print $content;

La réponse que j'obtiens chaque fois est

500 Can't connect to hal.archives-ouvertes.fr:80 (connect: timeout)

J'ai bien sûr vérifié que le site en question n'était pas tombé.
Que puis je essayer de faire sachant que le programme perl en question tourne sur un serveur distant dont je ne connais pas les paramétrages réseaux et firewall en particulier. Que puis je tester pour voir d'où vient le problème sachant que j'ai accès au serveur en question en ssh ?

Merci par avance de votre éventuelle aide ou piste pour avancer...

[50Nio]

Tu peux tenter, depuis le serveur où ton programme tourne:
Un ping simple sur le nom du serveur à joindre
wget $url (commande Unix/Linux en ligne de commande directment) qui va faire l'appel vers $url et afficher tout le résultat HTML.

Tu peux aussi essayer ton script en local pour vérifier que le problème ne vient pas du script lui-même.

[norkius]

Effectivement j'avais bien tenté un wget sur le serveur distant qui fonctionne. par contre le ping perd 100% des paquets!!??!!
Une idée de ce que cela signifie moi qui suis nulle en réseau??

Sinon pour faire tourner mon script en local c'est une idée que j'ai eu mais je suis sur un poste en windows et je ne sais pas trop comment m'y prendre du coup pour exécuter un script perl... la encore je suis preneuse de vos conseils!!

Merci!

[50Nio]

-désolé de la réponse tardive-
Sous Windows, tu peux utiliser ActivePerl, ça s'installe très facilement.

ping peut ne pas passer si le paramétrage du serveur que tu ping le refuse.
Si wget marche ça suffit comme test, ton agent devrait marcher aussi vu qu'il utilise les même ports/protocoles.

[norkius]

Merci pour le tuyau ActivePerl!!

Il y avait une petite erreur dans mon programme effectivement que j'ai pu voir du coup facilement!!
Je vais essayer de faire tourner le script comme il faut sur mon poste et je vais voir ensuite à partir du serveur distant ce que ça donne.

Merci encore... je poste des nouvelles dès que j'ai avancé...

[cassis2k]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my $ua  = new LWP::UserAgent;
$ua->timeout(2000);

le timeout s'exprime en seconde.. Dans ton cas, plus de 33 minutes

$ua->timeout( $secs ) Get/set the timeout value in seconds. The default timeout() value is 180 seconds, i.e. 3 minutes.
The requests is aborted if no activity on the connection to the server is observed for timeout seconds. This means that the time it takes for the complete transaction and the request() method to actually return might be longer.
Source : http://search.cpan.org/~gaas/libwww-perl-5.834/lib/LWP/UserAgent.pm

[norkius]

Me revoici avec tj le même souci. Mon script Perl marche nickel sur ma machine en local.
Le voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub _getHALResponse
{
	my ($_url, $timeout, $keyattr) = shift;
	print 'getHalResponse param url is : ';
	print $_url;
 
	$url = new URI::URL($_url);
	my $ua  = new LWP::UserAgent;
	my $resp = $ua->get($url);
	my $content = $resp->content;	
 
	if(index($content,"aucun document") == -1){
		print "FOUND IT!!";
		return 1;
	}
	else {
		print "doesn't find it...";
		return 0;
	}
}

Et sur le serveur ou il tourne il plante toujours à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $resp = $ua->get($url);

Donc manifestement la fonction get est "bloquée" sur le serveur...
Je pense donc qu'il y a un paramétrage réseau sur le serveur qui pose problème...
Comme précédemment indiqué la commande wget fonctionne sur ce même serveur. Que puis je essayer d'autre?
Merci!