Skip to content

Instantly share code, notes, and snippets.

Created May 14, 2010
What would you like to do?
<li><img src=""><a href="">mai03</a> <p>うめこと茎わかめなう</p></li>
<li><img src=""><a href="">erica06</a> <p>ホントにすぐ更新されるーおもしろい</p></li>
<li><img src=""><a href="">erika07</a> <p> バリバリデコメ使えてるよぉ( 」´0`)」 ERIKA </p></li>
<li><img src=""><a href="">fonchi08</a> <p>電車にガタンゴトンと揺られながらお仕事に向かっています。皆様今日も一日頑張りまっしょいp(^^)q</p></li>
<li><img src=""><a href="">rurika09</a> <p>いまつぶ初投稿☆デコメがよくわからないので色合いは淡白になりますが汗よろしくお願いします☆</p></li>
<li><img src=""><a href="">suzuka11</a> <p>外の空気が心地好い〜♪</p></li>
<li><img src=""><a href="">yui12</a> <p>まいぷるさんと一緒になうったなう。</p></li>
<li><img src=""><a href="">serina13</a> <p>アイドリング!!!の曲の歌詞を出すので、何の曲か当てて下さい○Level1「よりどりみどり」わっかるかなー</p></li>
<li><img src=""><a href="">hitomi14</a> <p>酒井瞳です。こんにちは〜♪</p></li>
<li><img src=""><a href="">nao15</a> <p>POPPOP(笑) 楽しも〜う</p></li>
<li><img src=""><a href="">ami16</a> <p>ないすファン様!(^ω^)タイトルつけたほーが見やすいのね ないすないす了解まかせて!(゜▽゜)</p></li>
<li><img src=""><a href="">hitomi17</a> <p>改札口無事発見なうHitomi</p></li>
<li><img src=""><a href="">yurika19</a> <p>ターピータピオカなう♪今日もお天気や!</p></li>
<li><img src=""><a href="">ai20</a> <p>はい。ゆっぺとお仕事前にタピオカなう。</p></li>
<li><img src=""><a href="">kaede21</a> <p>電車 1駅だけど寝過ごしてしまったー!!でも全然 間に合うから大丈夫なう</p></li>
<li><img src=""><a href="">ruka22</a> <p></p></li>
<li><img src=""><a href="">yuna23</a> <p>今日あったかい〜幸せ!</p></li>
<li><img src=""><a href="">manami24</a> <p>今日も一日頑張りましょう</p></li>
<li><img src=""><a href="">kaoru25</a> <p></p></li>
<li><img src=""><a href="">chika26</a> <p>勉強中</p></li>
#!/usr/bin/env perl
use strict;
use warnings;
use Config::Pit;
use Encode qw(encode);
use URI;
use WWW::Mechanize;
use Web::Scraper;
my $url = URI->new('');
my $conf = Config::Pit::get('', require => +{
id => 'id for imatsubu',
pw => 'pw for imatsubu',
my $mech = WWW::Mechanize->new;
form_id => 'loginForm',
fields => +{
'frontAccountBean.loginId' => $conf->{id},
'frontAccountBean.loginPassword' => $conf->{pw},
my $list19 = $mech->content;
#use File::Slurp qw(slurp);
#my $list19 = slurp('list19.html');
$list19 =~ s/[\n\r]+/ /g;
$list19 =~ s/&nbsp;/ /g;
my $tsubu = scraper {
process 'div.timeline div.mutters', 'tsubu[]' => scraper {
process 'div.thn', 'info' => scraper {
process 'img', 'avatar' => '@src';
process 'img', 'id' => '@alt';
process 'a', 'link' => '@href';
process 'div.spouting div.container', 'body' => scraper {
process 'div.content', 'content' => 'TEXT';
process 'p.tim', 'date' => 'TEXT';
my $res = $tsubu->scrape($list19, $url);
print "<ul>\n";
for my $tsubu (@{ $res->{tsubu} }) {
printf qq!<li><img src="%s"><a href="%s">%s</a><span>%s</span><p>%s</p></li>\n!,
encode('utf8', $tsubu->{body}{content});
print "</ul>\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment