Ignore:
Timestamp:
Sep 12, 2010, 12:52:00 AM (11 years ago)
Author:
roux
Message:

ajouts fonctios sur documents + correction parsing id documents

File:
1 edited

Legend:

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

    r1351 r1361  
    88$id = $source;
    99$id =~ s/^http\:\/\/.*(\d{4})(-[at].*)?\.asp$/\1\2/i;
     10$id =~ s/^0+//;
    1011$num = $annexe = $id;
    11 $num =~ s/^0*(\d+)(-[at].*)?$/\1/i;
    12 $annexe =~ s/^0*\d+(-[at])?(.*)?$/\2/i;
     12$num =~ s/^(\d+)(-[at].*)?$/\1/i;
     13$annexe =~ s/^\d+(-[at])?(.*)?$/\2/i;
    1314
    1415open(FILE, $file) ;
Note: See TracChangeset for help on using the changeset viewer.