1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| #!/usr/bin/perl -w
use strict;
use LWP::Simple;
use utf8;
ActiverAccentDOS();
#================================================================
my %mois = ("janvier", 1, "février", 2, "mars", 3, "avril", 4, "mai", 5, "juin", 6,
"juillet", 7, "août", 8, "septembre", 9, "octobre", 10, "novembre", 11, "décembre", 12);
my $adresse = "http://fr.sport-xn.com/football-france-ligue-1-2010-2011-journee-1-sommaire-12745.html";
#================================================================
sub ActiverAccentDOS {
my ($codepage) = ( `chcp` =~ m/:\s+(\d+)/ );
foreach my $h ( \*STDOUT, \*STDERR, \*STDIN ) {
binmode $h, ":encoding(cp$codepage)";
}
}
sub telechargement_resultats {
my $_date_match;
my @_adresse = split /\n/, get($adresse);
foreach (@_adresse) {
if ($_ =~ /<div class="D">.*, (.*)</) {
$_date_match = transfo_date($1);
}
}
}
sub transfo_date {
my @_tab = split / /, shift;
print "$_tab[1]\n";
return 10000*$_tab[2]+100*$mois{$_tab[1]}+$_tab[0];
} |
