Ignore:
Timestamp:
Oct 5, 2011, 2:56:17 AM (10 years ago)
Author:
goya
Message:

automatise année dans dl docs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/documents/download_docs.pl

    r2017 r2381  
    44use HTML::TokeParser;
    55
     6$lastyear = localtime(time);
     7$lastyear =~ s/^.*\s(\d{4})$/$1/;
     8
    69$a = WWW::Mechanize->new(autocheck => 0);
    710
    8 foreach $baseurl ("http://www.assemblee-nationale.fr/13/documents/index-depots.asp",
    9                   "http://www.assemblee-nationale.fr/13/documents/index-rapports.asp",
    10                   "http://www.assemblee-nationale.fr/13/documents/index-application_lois.asp",
    11                   "http://www.assemblee-nationale.fr/13/europe/index-rapinfo.asp",
    12                   "http://www.assemblee-nationale.fr/13/documents/index-information-comper.asp",
    13                   "http://www.assemblee-nationale.fr/13/documents/index-rapports-legislation.asp",
    14                   "http://www.assemblee-nationale.fr/13/documents/index-oeps.asp",
    15                   "http://www.assemblee-nationale.fr/documents/index-general-oecst.asp",
    16                   "http://www.assemblee-nationale.fr/13/documents/index-territoire.asp",
    17                   "http://www.assemblee-nationale.fr/13/documents/index-femmes.asp",
    18                   "http://www.assemblee-nationale.fr/13/documents/index-information-comper.asp",
    19                   "http://www.assemblee-nationale.fr/13/documents/index-enquete-rapports.asp",
    20                   "http://www.assemblee-nationale.fr/13/budget/plf2008/rapporteurs.asp",
    21                   "http://www.assemblee-nationale.fr/13/budget/plf2009/rapporteurs.asp",
    22                   "http://www.assemblee-nationale.fr/13/budget/plf2010/rapporteurs.asp",
    23                   "http://www.assemblee-nationale.fr/13/budget/plf2011/rapporteurs.asp"
    24 ) {
     11@urls = ("http://www.assemblee-nationale.fr/13/documents/index-depots.asp",
     12         "http://www.assemblee-nationale.fr/13/documents/index-rapports.asp",
     13         "http://www.assemblee-nationale.fr/13/documents/index-application_lois.asp",
     14         "http://www.assemblee-nationale.fr/13/europe/index-rapinfo.asp",
     15         "http://www.assemblee-nationale.fr/13/documents/index-information-comper.asp",
     16         "http://www.assemblee-nationale.fr/13/documents/index-rapports-legislation.asp",
     17         "http://www.assemblee-nationale.fr/13/documents/index-oeps.asp",
     18         "http://www.assemblee-nationale.fr/documents/index-general-oecst.asp",
     19         "http://www.assemblee-nationale.fr/13/documents/index-territoire.asp",
     20         "http://www.assemblee-nationale.fr/13/documents/index-femmes.asp",
     21         "http://www.assemblee-nationale.fr/13/documents/index-information-comper.asp",
     22         "http://www.assemblee-nationale.fr/13/documents/index-enquete-rapports.asp"
     23);
     24for $year (2008 .. $lastyear) {
     25  @urls = (@urls, "http://www.assemblee-nationale.fr/13/budget/plf$year/rapporteurs.asp");
     26}
     27
     28foreach $baseurl (@urls) {
    2529  $ct = 0;
    2630  $a->get($baseurl);
Note: See TracChangeset for help on using the changeset viewer.