horiday blog

2011/06/24

■ [diary] フェリーに乗って岡山大学へ

本日はスタッフのタツカワ君が岡山大学のベンチャー研究会に行くというので，嫌々ながらのニシモリ君を連れて，みんなでフェリーに乗って行ってきました．

フェリーの中でさっさと打ち合わせを済ませて，皆でフェリーの上へ行きました．ニシモリ君は船内うどんを船外で食べると言って，うどんを外へ持ち出していました．

多少迷いながらも，無事教室へ到着し，みんなで熱い議論をしました．

ギャプライズという会社の社長が，商品をどう PR するかという話をしていたのですが，そのあとでタツカワ君が下記のようなことを言っていました．

あういう自信に満ちた話って，技術者のひとは苦手ですよね？

技術者や研究者は，なんらかの方法を組み上げていくひとだと思うのですが，出来ることと出来ないことが営業やマネジメントをしているひとよりも正確に分かっているので誇張したようなことがなかなか言えないんじゃないかなと思いました．

大勢の前で PR するような機会では，中身よりも発表する人のプレゼンスの方が大事だったりするので，そういう点は参考にした方が良いなと思いました．社長とか営業で技術者が少ないのはそういう理由なのかな．

前に慶應の岡田謙一先生が大学が始めたビジネスっていうのはダサいと言っていましたが，どうも科学的に考えているひとは PR は苦手だったりするんでしょうかね．

帰りもフェリーだったのですが，皆疲れていて，ずっと無言でした...

2011/06/02

■ [perl] perl で youtube の検索

youtube の動画を検索するにはどうしたら良いのかと聞かれたので，サンプルコードを作ってみました．API で検索をするには，認証などが不要なようです．

リファレンスガイド: Data API プロトコルを見ると，

動画を検索するには、次の URL にリクエストに合わせてクエリパラメータを付加し、HTTP GET リクエストを送信します。

http://gdata.youtube.com/feeds/api/videos

たとえば次の URL へのリクエストでは、検索キーワード「football」に一致し、キーワード「soccer」には一致しない最近アップロードされた動画の 10 本ずつのセットの 2 番目のセットを検索します。

http://gdata.youtube.com/feeds/api/videos?
    vq=football+-soccer
    &orderby=published
    &start-index=11
    &max-results=10

ということでサンプルコードは下記のようになりました．atom で取得しようとしたのですが，扱い方が良くわからなかったので，rss にしました．

#!/usr/bin/env perl
# search-youtube.pl
use strict;
use Data::Dumper;
use URI;
use XML::Simple;
use LWP::Simple;
use Unicode::RecursiveDowngrade;
use Unicode::Japanese;
use Jcode;

sub main {
  my $kw = "香川大学";
  my $h = search_youtube($kw);

  print Dumper $h;
}

sub search_youtube {
  my $kw = shift;
  my $h;

  my $proxy = 'http://gdata.youtube.com/feeds/api/videos';
  my $uri   = URI->new( $proxy );

  my $u_kw = Jcode::convert($kw , "utf8", "euc-jp" );

  $uri->query_form(
		   vq => $u_kw,
		   orderby => "relevance",
		   alt => 'rss'
		  );

  my $xml = get($uri->as_string);
  my $xs  = XML::Simple->new();
  my $ref = $xs->XMLin( $xml, forcearray => 1 );

  my $count = 0;
  foreach my $i (@{$ref->{channel}[0]{item}}) {
    $h->{$count}{title} = shift @{$i->{title}};
    $h->{$count}{link} = shift @{$i->{link}};
    $h->{$count}{description} = $i->{'description'}[0];
    $h->{$count}{keywords} = $i->{'media:group'}[0]{'media:keywords'};
    $h->{$count}{author} = $i->{author}[0];
    $h->{$count}{viewcount} = $i->{'yt:statistics'}[0]{viewCount};
    $h->{$count}{pubdate} = $i->{pubDate}[0];
    $h->{$count}{thumb} = $i->{'media:group'}[0]{'media:thumbnail'}[1];
    $count++;
  }

  my $rd = Unicode::RecursiveDowngrade->new;
  $rd->filter(sub {
                Unicode::Japanese->new(shift, 'utf8')->euc
                });
  $h = $rd->downgrade($h);

  return $h;
}

main;

上記のコードを search-youtube.pl として保存して，実行すると下記のようになります．

% perl youtube-search.pl
$VAR1 = {
          '11' => {
                    'link' => 'http://www.youtube.com/watch?v=F_abi4096VQ&feature=youtube_gdata',
                    'viewcount' => '1697',
                    'pubdate' => 'Tue, 08 Feb 2011 17:51:56 +0000',
                    'author' => 'BBRarkaic3',
                    'description' => '香川大学第42回定期演奏会、Ⅲstageメイン曲. びびる大好きスイートなメロディと、きらびやかなリズム。 日本一のマンドリンクラブと自負し続けます。 素晴らしい！！！！ 指揮：四国の伝説、細川一樹氏(香川県在住&#12959;2011年現在) ※香川大学演奏のデモCDなどの購入等の問い合わせは、香川大学マンドリンクラブまでびびる大好き',
                     'thumb' => {
                                 'width' => '120',
                                 'time' => '00:03:45.250',
                                 'url' => 'http://i.ytimg.com/vi/F_abi4096VQ/1.jpg',
                                 'height' => '90'
                               },
                    'keywords' => [
                                    'マンドリン, 江頭'
                                  ],
                    'title' => '「雲の行方」 香川大学第４２回定期演奏会 3-3finalステージ 2010年12/18'
                 },
...

キムミギュ(Kim Migyu)さんのお話

		2011-6
日	月	火	水	木	金	土
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30

horiday blog

2011/06/24

■ [diary] フェリーに乗って岡山大学へ

2011/06/02

■ [perl] perl で youtube の検索

about me

cal

archives

categories

search

links

recent