Changeset 545
- Timestamp:
- 04/05/06 18:03:46
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/assets/plugins/filter-entryfulltext/hatena_diary.pl
r524 r545 1 1 sub handle { 2 2 my($self, $args) = @_; 3 $args->{entry}->link =~ qr!^http:// d\.hatena\.ne\.jp/!;3 $args->{entry}->link =~ qr!^http://(?:[\w\-]+\.g|d)\.hatena\.ne\.jp/!; 4 4 } 5 5 6 6 sub extract { 7 7 my($self, $args) = @_; 8 my $name = ( $args->{entry}->link =~ /\#([\w\-]+)$/ )[0]; 9 my $day_only = $args->{entry}->link =~ qr!^http://d\.hatena\.ne\.jp/[\w\-]+/\d+/?$!; 8 my $path = URI->new($args->{entry}->link)->path; 9 10 my $name = ( $path =~ /\#([\w\-]+)$/ )[0]; 11 my $day_only = $path =~ m!^/[\w\-]+/\d+/?$!; 10 12 11 13 my $match = … … 13 15 $day_only ? qq!<div class="section">(.*?)</div>! : 14 16 qq!</h3>(.*?)</div>!; 17 18 warn $match; 15 19 16 20 if ( $args->{content} =~ /$match/s ){ trunk/plagger/lib/Plagger/Plugin/Filter/HatenaDiaryKeywordUnlink.pm
r544 r545 15 15 my $body = $args->{entry}->body; 16 16 17 my $count = $body =~ s!<a class=" keyword" href="http://(?:d|[\w\-]+\.g)\.hatena\.ne\.jp/keyword/.*?"[^>]*?>(.*?)</a>!$1!g;17 my $count = $body =~ s!<a class="o?keyword" href="http://(?:d|[\w\-]+\.g)\.hatena\.ne\.jp/keyword/.*?"[^>]*?>(.*?)</a>!$1!g; 18 18 19 19 if ($count) {
