Via une url donnée, en extraire des informations

**Olivier Regnier** · 27/07/2011, 22h39

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** · 28/07/2011, 11h02

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** · 28/07/2011, 15h23

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;