fuba

# 東京
ＮＨＫ教育: 26
ＮＨＫ教育１・東京: 26
ＮＨＫ教育２・東京: 26
ＮＨＫ教育３・東京: 26
ＮＨＫ　Ｅテレ: 26
ＮＨＫＥテレ１・東京: 26
ＮＨＫＥテレ２・東京: 26
ＮＨＫＥテレ３・東京: 26
ＮＨＫ総合: 27

fuba

札幌	青森	5時間7分
札幌	盛岡	6時間35分
札幌	仙台	3時間45分
札幌	秋田	2時間54分
札幌	山形	5時間17分
札幌	福島	4時間43分
札幌	水戸	5時間20分
札幌	宇都宮	4時間50分
札幌	前橋	5時間19分
札幌	さいたま	4時間21分

fuba

#http://maps.google.com/maps/api/staticmap?center=36.7,139&zoom=5&size=640x640&maptype=satellite&sensor=false
札幌,375,132
青森,360,200
盛岡,370,233
仙台,364,277
秋田,346,233
山形,352,277
福島,355,291
水戸,355,311
宇都宮,341,325

fuba

rtmpdump -q -v -r "rtmp://flash74.ustream.tv/ustreamVideo/7577883" -a "ustreamVideo/7577883" -f "LNX 10,0,42,34" -y "streams/live" --stop 3600 -o korenikime.flv

fuba

exthtml -x '//a[./img]/@href' http://www.hkt48.jp/profile.html | grep member | sort | uniq | exthtml -x '//dt[contains(text(), "出身地")]/following-sibling::*[1]' - | perl -MYAML -e 'while(<>){chomp;$n{$_}++}warn YAML::Dump \%n'
---
大分県: 1
山口県: 2
福岡県: 16
長崎県: 1
鹿児島県: 1

fuba

exthtml -x '//a[./img[@width="120"]]/@href' http://www.nmb48.com/member/ | sort | uniq | exthtml -x '//span[contains(text(), "出身地")]/..' - | perl -MYAML -e 'while(<>){chomp;$n{$_}++}warn YAML::Dump \%n;'
---
出身地 : 京都府: 5
出身地 : 兵庫県: 14
出身地 : 千葉県: 1
出身地 : 大阪府: 36
出身地 : 奈良県: 4
出身地 : 岐阜県: 1
出身地 : 広島県: 2
出身地 : 愛知県: 1

fuba

exthtml -x '//a/@href' http://www.ske48.co.jp/profile/list.php | grep 'profile/?id' | sort | uniq | exthtml -x '//li[contains(text(), "出身地")]' - | perl -MYAML -e 'while(<>){chomp;$n{$_}++;}warn YAML::Dump \%n'
---
出身地：三重県: 5
出身地：埼玉県: 2
出身地：大分県: 2
出身地：大阪府: 3
出身地：岐阜県: 5
出身地：愛知県: 50
出身地：高知県: 1

fuba

exthtml -x '//a/@href' http://www.akb48.co.jp/about/members/ | grep detail | sort | uniq | exthtml -x '//dd[last()-1]' - | perl -MYAML -e 'while(<>){$n{$_}++};warn YAML::Dump \%n;'

fuba

package My::SourceFilter::LegacyCode;
use strict;
use warnings;

BEGIN {
    use Exporter ();
    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
    @ISA = qw/Exporter/;
    @EXPORT = qw/$printCode/;
    @EXPORT_OK = qw/&eval_code/; 

fuba

#!/usr/bin/perl
use strict;
use warnings;

use Linux::DVB::DVBT::TS;
use Proc::ProcessTable;

use constant {
    TIMEOUT => 10
};