#!/usr/bin/perl use strict; use warnings; use Encode; use LWP::Simple; use Getopt::Long; use JSON; $Getopt::Long::autoabbrev = 1; my %opt; GetOptions(\%opt, "encoding=s", "number=s", "output=s", "url=s"); my $encoding = $opt{'encoding'} || "utf8"; my $number = $opt{'number'} || -1; my $output_fn = $opt{'output'} || "rss.js"; my $url = $opt{'url'} || "http://topsy.com/s/site%3Achalow.net"; my $jstr = get($url); my @items; while ($jstr =~ m%(<div class="list-link-v3.*?class="trackback-link.*?</a>)%gsm) { my $c = $1; my ($turl, $num) = $c =~ m%<a href="(.+?)" class="trackback-link.+?">([\d,]+) more</a>%; $turl = "http://topsy.com$turl"; my ($url, $title) = $c =~ m%href="(.+?)".+?>(.+?)</a>%; push @items, qq(<a href="$turl" target="_blank" ) .qq(style="font-weight:bold;color:red">$num</a> ) .qq(<a href="$url" target="_blank">$title</a>); } my $str = join("<br>", @items); if (open(my $fh, ">:encoding($encoding)", $output_fn)) { print $fh "document.writeln('$str');\n"; close $fh; }
<div class="stdbox"> <table> <tr><td> <a href="http://topsy.com/s/site%3Achalow.net" target="_blank">ツイッターで話題の記事</a></td></tr> <tr><td> <script type="text/javascript" src="http://chalow.net/var/topsy.js"></script> </td></tr> </table> </div>
医薬品グレードの手指消毒剤。使用後も有効成分が効果を発揮!
広範囲の微生物に対して簡便かつ持続的な殺菌効果を発揮する無色のエタノール溶液です。手荒れ防止に配慮。