Show
Ignore:
Timestamp:
04/06/08 09:20:33 (5 years ago)
Author:
drry
Message:

lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha.pm:

  • fixed a regexp.
Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha.pm

    r8882 r8957  
    111111    foreach my $line ($tree->findnodes(selector_to_xpath($xpath))) { 
    112112        my $html = decode_entities($line->as_HTML); 
    113         if ($html =~ /<a href="\/user\/(\w+)">([^<]+)<\/a>[^<]+<a href="\/no\/(\d+)">([^<]+)<\/a>([^ ]+)( [^ ]+ (.+))?$/) { 
     113        if ($html =~ /<a href="\/user\/(\w+)">([^<]+)<\/a>[^<]+<a href="\/no\/(\d+)">([^<]+)<\/a>([^ ]+)(?: [^ ]+ (.+))?$/) { 
    114114            push @list, { 
    115115                user    => $1, 
    116116                name    => $2, 
    117                 comment => $7 || '', 
     117                comment => $6 || '', 
    118118                answer  => $5, 
    119119                koto_no => $3,