つぶねこ
@もじらもーど。
OP曲が良い。
あと所々に1話完結エピがあるので、そのあたりネタがキツくてはっちゃけてて楽しい。
そして1期ラストのEDが大変酷い(笑)
というわけで流し見るにはまぁまぁよかた
▼ 神のみぞ知るセカイ 関連記事
WWW::MechanizeとかWeb::Scraperのネタをつぶやいたので、ついでということで何か実装してみようという。
use LWP::Simple;
use LWP::UserAgent;
use WWW::Mechanize;
use utf8;
use Web::Scraper;
use Encode;
my $url = 'http://list3.auctions.yahoo.co.jp/jp/%E7%84%A1%E5%81%9C%E9%9B%BB%E9%9B%BB%E6%BA%90%E8%A3%85%E7%BD%AE-%E3%83%8D%E3%83%83%E3%83%88%E3%83%AF%E3%83%BC%E3%82%AF-%E5%91%A8%E8%BE%BA%E6%A9%9F%E5%99%A8-%E3%82%B3%E3%83%B3%E3%83%94%E3%83%A5%E3%83%BC%E3%82%BF/2084039702-category-leaf.html?price_type=currentprice&min=&max=100000&abatch=1&istatus=0&mode=2&p=&fo=&sb=&desc=&cat=&auccat=&f=&loc_cd=&min_point=&max_point=&auchours=&aucminutes=&e_wday=&e_time=&s_wday=&s_time=&filtered=1';
my $result = &get_list($url);
@$result = sort{ $b->{price} <=> $a->{price} || $a->{desc} cmp $b->{desc} }(@$result);
foreach my $r (@$result) {
next if($r->{price} > 40000);
my $str = &add_comma( $r->{price} ) . "\t"
. qq(<a href="$r->{uri}">) . $r->{desc} . "" . "\n";
print encode('utf-8' , $str );
}
sub get_list{
my $url = shift;
my $agent = "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50$
my $mech = WWW::Mechanize->new(agent=>$agent);
my @result;
$mech->get( $url );
push( @result, &scr( $mech->content ) );
my $re = qr/\Q次の25件\E/ ;
while( $mech->find_link('text_regex' => $re ) ){
$mech->follow_link( 'text_regex' => $re );
push( @result, &scr( $mech->content ) );
}
return \@result;
}
sub scr{
my $yahuoku2 = scraper {
process 'td.pad01>a' , uri => '@href' , 'desc' => 'TEXT';
process 'td.pad01>small>a' , 'owner' => sub{
my @list = $_->find("a");
return $list[0]->as_text;
};
process 'td.pad01>b' , 'price[]' => 'TEXT';
result 'uri','desc','owner','price';
};
my $yahuoku1 = scraper {
process 'div#list01>table>tr' , 'auctions[]' => $yahuoku2;
result 'auctions';
};
my $html = shift;
my $result = $yahuoku1->scrape( $html );
for (my $m=@$result ; $m>=0 ; $m--){
splice(@$result,$m,1) unless ( $$result[$m]->{uri} );
}
my @p;
foreach my $r (@$result){
@p = grep(/^ *[0-9,]+ *\Q円\E */ , @{$r->{price}} );
$r->{price} = $p[0];
$r->{price} =~ s/[^0-9]//g;
}
return @$result;
}
これでヤフオクのUPSカテゴリーからタイトルと価格あたりをリストしてくる。
scraperのhtmlの一部分を拾ってくる所は、何かもう少しやり方がありそうだが、とりあえず現状合わせ。CSSセレクタじゃにゃくてXPathのほうがいいのかしら? どうもそのあたりの書式でどこまで記述できるのかを知らずに書いてるので酷いことに。あとこういうタグベースじゃにゃくて、にゃんかこう、TEXT部分でサーチしてヒューリスティックに検出とかした方がいいんだろうにゃぁ、とか思いつつ、あぁそれってscraperじゃにゃくてMechanizeにゃんじゃにゃいの?という根本的にゃ・・・
まぁ習学にゃのでいいとして
これはhtmlぽいのを吐くのでcronとかで
mail -s title -a "Content-type: text/html;" mail@mail.com
で投げると便利。
▼ おとめ妖怪ざくろ 関連記事
アレ?風音って誰だっけ的にだんだん話が混乱してきた。原作は原作でまとめてよまんとあかんね
ちょっとメール鯖をvmで別所に移動しようかってことで、Ubuntuベースで移植してみた。
exim4は面倒にゃので
設定を流用してそのまま使用。
今回はupdate-exim4.conf.confで
dc_localdelivery='maildir_home'
にしてみた。
送信はsmarthostで受信はport 587を25にリダイレクト。
popはちょいと色を出してdovecotにしてみた
apt-get install dovecot-pop3d
vi dovecot.conf
disable_plaintext_auth = no
mail_location = maildir:~/Maildir
chmod a+rwxt /var/mail
とこの程度で動くと思われる。
ssl云々はどうせvpn経由で見に行くのでどうでもいいやー
そろそろ学校ネタ増やして欲しい
▼ 探偵オペラ ミルキィホームズ 関連記事
ぬぐぐぐ、おっきくにゃった上にバトルシーン多くて・・・
と思ったら作者が似たようにゃこと書いてた(笑)
▼ つぐもも 関連記事
▼ 侵略!イカ娘 関連記事
あいかわらずにゃんとにゃく大体予想できる展開にゃのに微妙にずらしてくるのが
にゃんか総集編か?とか思ったら、むしろ強引にシリアス展開するための伏線だった!!
・・・って、そんにゃことはにゃいにゃ。尺稼ぎだよね。
まぁそれはともかく、何とにゃく予想できる展開とおもったらやっぱり突飛にゃ設定が噴出して驚きの展開で次回へ続く!
当然のようにおいしい所でストッキング降臨を期待。
▼ パンティ&ストッキング 関連記事
形式上の♂も追加されるのか。いい感じですにゃぁ
で、にゃんか次回で終わりとかにゃにそれ。妙にゃストーリー展開とか含め、どうもせっかくの世界観をぶっ壊してる人がいるぽい。もしかすると編集とか。
▼ おとめ妖怪ざくろ 関連記事
あぁセイラが空気気味に。
でもってスモツで結構尺稼いでる(笑)
OpensolarisにゃZFS鯖。
NAME STATE READ WRITE CKSUM
pool1 ONLINE 0 0 0
mirror ONLINE 0 0 0
c7t3d0 ONLINE 1 0 0
c7t4d0 ONLINE 0 0 0
みたいにゃのが出てたけど放置してたら、今度はハングした(笑)
うーむ、そこは止まらにゃいで欲しいのだが。
んでリセットかけたら、
NAME STATE READ WRITE CKSUM
pool1 DEGRADED 0 0 0
mirror DEGRADED 0 0 0
c7t3d0 DEGRADED 0 0 97 too many errors
c7t4d0 ONLINE 0 0 0
みたいにゃことに。
そりゃまぁtoo manyだわにゃ。しかもcksumってどういう・・・。ZFSじゃにゃかったら酷いことににゃっていたのか、それとも・・・
それにしてもこの鯖、一応高価にゃRAIDカードが載ってて、RAIDカードでミラーしたらディスクエラーでハングしたので、ZFSでミラーしたらそれでも止まったわけだが、いったいどうしろと・・・
▼ OpenSolaris 関連記事
▼ ZFS 関連記事
中身は何も変化がにゃいが、あいかわらずレンチがいい味
▼ 探偵オペラ ミルキィホームズ 関連記事
やっぱりこっくりさん合身萌え
独楽かわいい
早く映画化しろ
▼ 侵略!イカ娘 関連記事
おお、にゃんか発端は便利にゃタイムスリップだった気がするがそれで1巻まるまる・・・