Discussion :

[Olivier Regnier]

Bonjour

J'ai une adresse web: http://www.openbsd.org/

Sur la page par défaut, il est indiqué "The current release is OpenBSD 4.9", je souhaiterai récupérer la valeur 49 afin de la stocker dans un fichier de log.

J'avance un peu, voici le code:

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
#!"C:\xampp\perl\bin\perl.exe"
 
use strict;
use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use LWP::Simple;
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
 
my $release=get "http://www.openbsd.org/";
 
print $cgi->header(-charset=>'utf-8');
print "$release";

Maintenant, il faut que je trouve l'astuce afin d'isoler le nombre "49"

Merci d'avance de vos réponses.

[thierry.chich]

Regexp est ton ami. C'est pas optimal, et ça ne marchera plus si il y a des changement dans la phrase introductive, mais bon, vu que je ne sais pas à quoi ça peut bien servir...

Code :

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

1
2
3
 
$release=~/The current release is.*\"(.*)\.html\"/g;
say($1);

[djibril]

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use warnings;
use strict;
 
use LWP::Simple;
use 5.10.0;
my $web_page = get "http://www.openbsd.org/";
 
my ($release) = $web_page =~ m{The current release is.*"(.*)\.html"};
say $release;

[Olivier Regnier]

ça fonctionne, merci beaucoup

[thierry.chich]

Roooo le perfectionniste

[djibril]

Roooo le perfectionniste

[Olivier Regnier]

Bonjour

Le code fonctionne, c'est une merveille que voici:

Code :

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

my ($release) = $web_page =~ m{The current release is.*"(.*)\.html"};

Il me retourne bien la version du système donc 49 au lieu de 4.9, il manque le caractère "." ?

Si je comprends bien le regex, il permet d'afficher tout ce qui se trouve après le mot "is" alors comment se fait-il qu'il le enlève le point entre les deux chiffres ?

Merci d'avance

[djibril]

Par ce que le code perl lit la page index.html et dans ce dernier (le code HTML), il y a le texte suivant :

Code html :

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

The current release is <a href="49.html">OpenBSD 4.9</a> which

La regex lit ce qui se trouve avant le .html et récupère 49

[Olivier Regnier]

Je vais reprendre le sujet du problème depuis le début

Sur la page d'accueil d'OpenBSD, je souhaiterai récupérer la version de la release actuelle qui se présente sous la forme:

The current release is OpenBSD 4.9

Lorsque la nouvelle release est sortie, OpenBSD met à disposition un descriptif:

http://www.openbsd.org/49.html

1. Récupérer le n° de version (49) pour des tests et (4.9) pour de l'affichage
2. Vérifier que le n° de version (49 page d'accueil) dispose de son descriptif (49.html)

Si c'est le cas, j'affiche un résultat sinon un autre.

Merci pour tout