Discussion :

[djibril]

bonjour,

Je recherche un moyen de récupérer la date et l'heure sur internet via perl. Je répète, je ne souhaite pas obtenir le date sur mon PC, mais via internet.
Comment m'y prendre? Où la récupérer? Et si possible, y a t il un module Perl permettant cela.

Merci

[Jedai]

Avec Net::NTP tu peux consulter des serveurs NTP (il y a des listes énormes sur Internet).

--
Jedaï

[djibril]

Des serveurs NTP, j'en connais, d'ailleurs je me sers pour synchroniser les dates de mes serveurs.
Donc pour récupérer les dates en perl Net::NTP fait donc l'affaire, je vais y jeter un coup d'oeil.

Merci

[djibril]

Çà fonctionne simplement et basiquement.

Sinon Autre question.
Si il n'y a pas de connexion internet ou bien si le port est bloqué via un firewall, comment le savoir.
Car j'ai mis un or die

Code :

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

 get_ntp_response("ntp.univ-lyon1.fr") or die("Unable to get the date, $!\n");

et j'ai coupé internet. En lançant le script, il ne passe pas dans le die et le script tourne en rond sans rendre la main. Pendant plusieurs minutes.

Merci.

[Jedai]

Essaie un alarm(60) par exemple.

--
Jedaï

[djibril]

rien à faire, ça fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my %response;
eval {
  local $SIG{ALRM} = sub { die "Alarm" };
  alarm(10);
  %response = get_ntp_response("ntp.univ-lyon1.fr") or die("Unable to get the date, $!\n");
  alarm(0);
};
if ($@) {
#if ($@ and $@ !~ /Alarm/) {
  print "Problème! 10 secondes sont écoulées!\n";
}
else {
  print "Tout est en ordre!\n";
}