めざましテレビ占いをスクレイプするプログラムを書いた。 #!/usr/bin/env perl use strict; use Web::Scraper; use URI; use Data::Dumper; use utf8; use Encode; my $baseurl = "http://www.fujitv.co.jp/meza/uranai/index.html"; my $scraper = scraper…

久しぶりに Perl で Image::Magick をしました。いつも日本語フォントが残念なのですが、 昨日読んだブログにホットなエントリーがあったので使いました。 ベーシックで高品質で完全にフリーな日本語フォント - yayuguのにっき Script: #!/usr/bin/env perl …

「カンボジアスタディーツアー報告会」を見てきました。 知り合いがセカンドハンドに入っていて、 カンボジアの実際の現状を行って見てきたという内容でした。 カンボジアが何処にあるか知らなかったのですが、 写真や言葉を聞いて、かなり勉強になりました…

アルバイト先の前にあるお店。前から気になっていたのですが、躊躇してました。やっと入れた。 セレクトショップだけあって、 様々な形の「食器」や「マグカップ」がありました。 またコップが欲しくなったら行ってみよう。 ref: Kitchen Cafe（キッチンカフ…

Web::ScrapperでやっていたAmazonのクロールを置き替えることにした。 やってみると意外と簡単でサクサク動いてくれました。以下、ISBN-10で検索のサンプル #!/usr/bin/env perl use strict; use utf8; use Encode; use Net::Amazon; use Data::Dumper; # am…

初めて Google Static Maps API を使ってみました。 (API Keyの必要なし) http://maps.google.com/maps/api/staticmap?&center=香川県高松市幸町1-1&zoom=15&size=185x185&sensor=falseimgタグで呼び出せばー(日本語はエンコードが必要です)

先日、ctyoと高知へ行ってきました。 峠が二本、危峡が二本でした。 吉野川の綺麗さはすばらしい。 良く知らないのですが、ブームの"坂本龍馬" 徳島ラーメンを初めて食べました。おいしい！ やっぱり太平洋の大きさはすごかったです。

先日、男木島・女木島へ行ってきました。男木島 女木島

最近はやたらと食べ物を見る気がします。 親から。書類と一緒に大量の食料が！ これはー！"もろみ"。ご飯の重要なお供です。 塩味と言えばの"シガーフライ"

名物の石あかりロードを見てきました。 様々な創意工夫が面白かったです！

毎年恒例の東京観光をしました。 駅の中に無印が。さすが街。 初めて"メイド喫茶"に連れていってもらいました。(男4人でぞろぞろぞろ...) 知り合いのお勧めのお店だそうです。(秋葉原駅からすごく近い！) 友達のオムライス。ライブケチャッピング、すごい。 …

Terminalを立ち上げたのはいいのですが、 作業中に"screenを立ち上げとけば良かったー"という事が結構あります。 そのため、Terminal(zsh)を立ち上げた時点でscreenを起動することにしました。 ~/.zlogin に以下を記述します。 if [ ! "$WINDOW" ]; then exe…

メイドインカガワのトップページを作りました。サイズとロードの遅さが何とも言えない...。 (いろいろ勉強になりました。) ref: メインドインカガワ | made in KAGAWA

にじいろラジオのホームページを作りました。 もっと頑張らないとなー。 ref: にじいろラジオ - にじらじ・FM高松・FM815・ネットラジオ

久しぶりに、プログラミングをやるといたることろでつまずきます。 やっぱり、継続は大事ですね。 ということで、 ハッシュの値が大きい順に出力する方法をメモ。 for my $key (sort{ $hash{$b} <=> $hash{$a} } keys %hash){ print $key.":".$hash{$key}."\…