Changeset 1327

Show
Ignore:
Timestamp:
11/12/07 20:57:58 (7 years ago)
Author:
kan
Message:

changed regexp, because DoCoMo? web sites HTML changed.

Location:
lang/perl/HTTP-MobileAgent/trunk/bin
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/HTTP-MobileAgent/trunk/bin/makedocomomap

    r204 r1327  
    8383sub regexp { 
    8484    return <<'RE'; 
    85 <TD><FONT SIZE="2">([A-Z]+\d+\w*\+?).*?</FONT></TD> 
    86 <TD><FONT SIZE="2">.*?(?:</FONT></TD>)? 
    87 <TD><FONT SIZE="2">.*?(?:</FONT></TD>)? 
    88 <TD><FONT SIZE="2">.*?(\d+)��\d+).*?</FONT></TD> 
    89 <TD><FONT SIZE="2">.*?</FONT></TD> 
    90 <TD><FONT SIZE="2">(����顼)(?:.*?)(\d+)(?:��|��Ĵ)</FONT></TD> 
     85<td><span class="txt">([A-Z]+\d+\w*\+?).*?</span></td> 
     86<td><span class="txt">.*?(?:</FONT></TD>)?</span></td> 
     87<td><span class="txt">.*?(?:</FONT></TD>)?</span></td> 
     88<td><span class="txt">.*?(\d+)��\d+).*?</span></td> 
     89<td>.*?</td> 
     90<td><span class="txt">(����顼)(?:.*?)(\d+)(?:��|��Ĵ)</span></td> 
    9191RE 
    9292    ; 
  • lang/perl/HTTP-MobileAgent/trunk/bin/makexmldocomomap

    r204 r1327  
    4141sub regexp { 
    4242    return <<'RE'; 
    43 <TD><FONT SIZE="2">([A-Z]+\d+\w*\+?).*?</FONT></TD> 
    44 <TD><FONT SIZE="2">.*?(?:</FONT></TD>)? 
    45 <TD><FONT SIZE="2">.*?(?:</FONT></TD>)? 
    46 <TD><FONT SIZE="2">.*?(\d+)��\d+).*?</FONT></TD> 
    47 <TD><FONT SIZE="2">.*?</FONT></TD> 
    48 <TD><FONT SIZE="2">(����顼)(?:.*?)(\d+)(?:��|��Ĵ)</FONT></TD> 
     43<td><span class="txt">([A-Z]+\d+\w*\+?).*?</span></td> 
     44<td><span class="txt">.*?(?:</FONT></TD>)?</span></td> 
     45<td><span class="txt">.*?(?:</FONT></TD>)?</span></td> 
     46<td><span class="txt">.*?(\d+)��\d+).*?</span></td> 
     47<td>.*?</td> 
     48<td><span class="txt">(����顼)(?:.*?)(\d+)(?:��|��Ĵ)</span></td> 
    4949RE 
    5050    ;