ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
CPANモジュールのアンインストール（改良版） - ヒルズで働く@robarioの技ログ
信じられない間違いを犯していましたぁ！！（＞＜） aliasを書き直しました。 もし以前のaliasを持っていたら、見比べてﾆﾔﾆﾔしてくださいヽ(;´Д｀)ﾉ 何かCPANPLUSでdistroprefsが使えない（CPANモジュールのオレオレパッチ - ヒルズで働く@robarioの技ログ）ので、一旦CPANに戻ってきました。 それで、CPANではアンインストールコマンドが無いので、cpan-uninstall（CPANモジュールのアンインストール - ヒルズで働く@robarioの技ログ）を使うわけなんですが、色々あってcpan-uninstallを改良しました。 コード（aliasとしてワンライナーで実装） alias cpan-uninstall='\perl -MExtUtils::Install -MExtUtils::Installed -e "unshift@ARGV,n
cpan コマンドでインストールしたモジュールを調べる - 日向夏特殊応援部隊
ExtUtils::Install, ExtUtils::Installed を使うと cpan コマンドでインストールしたモジュールについてあれやこれや調べる事が出来ます。 インストールされているモジュール一覧 perl -MExtUtils::Installed -le 'print join "\n" => sort ExtUtils::Installed->new->modules;' 特定のモジュール名が属する dist に含まれるファイル一覧 $ perl -MExtUtils::Installed -le 'print join "\n" => sort ExtUtils::Installed->new->files(shift @ARGV);' YAML::Syck /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
Mac OSX 10.5.6 にRemedie入れてみる。 - 与太郎プログラマの日記
こちらを参考にさせてもらい、Remedieを入れてみる。 Remedieを使い始めたので、さっそく手順をまとめました。 Gitのインストール http://code.google.com/p/git-osx-installer/ からインストーラを落として実行。普通に完了。 Terminalが上がっていたので再起動させて $ which git /usr/local/git/bin/git でインストールされたことを確認。 Remedieのインストール ホームディレクトリで以下を実行。 $ git clone git://github.com/miyagawa/remedie.git いくつかメッセージが出て問題なく完了。/Users/ユーザ名/remedie が出来上がる。 CPANからPerlモジュールを入れる。 参考サイトのとおりに手作業ではじめて見たけれど、鬼のように時間がかかりそ
友達を見つけたり、追加したりが楽になるNet::Twitter::FriendFinderをCPANにリリースしました - Lazy Programmer :-p
以下で取得することができます。 http://search.cpan.org/~tomyhero/Net-Twitter-FriendFinder-0.02/ 簡単な使い方をもう一度まとめようと思います。 自分の興味があることを発言しているユーザを見つけたい時(フォローしたい時) 例えば、「寿司」を発言している人を見つけたい時の例 use Net::Twitter::FriendFinder; my $twf = Net::Twitter::FriendFinder->new({ setting => { username => 'tomyhero', password => '*****', # 既に登録している人をフィルターかけることができる。ただしAPIを使用するので制限を気にする人は、必要な時だけ使う方がいい。 filter_already_followers => 1, # 指定
Part1 正しいPerl/CGIの書き方：ITpro
Shibuya Perl Mongers 2代目リーダーにして，ppencodeの作者。広島市立大学卒業後，大企業向けmod_perl製品の開発に従事。2005年よりサイボウズ・ラボ株式会社に入社。LL Ringに参戦。Namazu for Win32，Plagger，Ajajaのコミッターでもある。 CGIといえばPerl。そんな風にいわれていた時期もありました。レンタル・サーバーのCGIで手軽にPerlが使えたこともあり，ちょっとした掲示板のスクリプトやアクセス・カウンタなど，CGIプログラムの多くがPerlで書かれていました。このためPerlが爆発的に普及したのです。Perlは日本のインターネット黎明期を支えたプログラミング言語として，広くその名が知られています。 その半面，Perlで書かれたプログラムの保守性に悩む声も聞かれるようになりました。事実，Perlのプログラミング経験が少
YappoLogs: twitter2ircd.pl - POEで書いたperlのTwitter IRC Gateway
twitter2ircd.pl - POEで書いたperlのTwitter IRC Gateway Twitterは、どことなくチャット的な利用もされていてiChat使っていたのですが，WindowsのTwitter IRC GatewayがあってIRCでやるのが楽しそうだったので、Macで動くようにPerlでIRC Gateway書きました。 miyagawaさんにPoCo::Server::IRCのサンプルコードとしてLingrのIRC Gatewayを教えてもらったので、参考にしてPOE::Component::Client::Twitterを作ってCPANにうpしました。 パッケージ中にはtwitter2ircd.plというTwitterのIRC Gatewayとなるサンプルコードを同梱しています。 コードの下にサンプルの設定ファイルがあるので参考にして下さい。 こんな感じで 普通
TokuLog 改め だまってコードを書けよハゲ - 近代的なメールの添付ファイルをとりだすライブラリ for Perl といえば Email::MIME::Attachment::Stripper
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Web::Scraper - naoyaのはてなダイアリー
Today I've been thinking about what to talk in YAPC::EU (and OSCON if they're short of Perl talks, I'm not sure), and came up with a few hours of hacking with web-content scraping module using Domain Specific Languages. 使ってみたよ! #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use URI; use Web::Scraper; use Encode; use List::MoreUtils qw/uniq/; my $links = scraper { process 'a.key
Web::Scraper
NAME Web::Scraper - Web Scraping Toolkit using HTML and CSS Selectors or XPath expressions SYNOPSIS use URI; use Web::Scraper; use Encode; # First, create your scraper block my $authors = scraper { # Parse all TDs inside 'table[width="100%]"', store them into # an array 'authors'. We embed other scrapers for each TD. process 'table[width="100%"] td', "authors[]" => scraper { # And, in each TD, # g
404 Blog Not Found:CPAN - HTTP::Response::Encoding Released!
2007年04月17日22:30 カテゴリLightweight Languages CPAN - HTTP::Response::Encoding Released! HTTP-Response-Encoding を Release したのでお知らせします。 on CPAN (coming soon) http://www.dan.co.jp/~dankogai/cpan/HTTP-Response-Encoding-0.03.tar.gz どういうものかというと、こういうものです。 use LWP::UserAgent; use HTTP::Response::Encoding; my $ua = LWP::UserAgent->new(); my $res = $ua->get("http://www.example.com/"); warn $res->encoding; prin
HTML::TreeBuilder::Selectがウマーな件 - 日向夏特殊応援部隊
以前、id:naoyaさんのd:id:naoya:20061006:1160134639にて「HTML::TreeBuilder + CSSセレクタがいい感じな件」ってエントリがあったんですが、まさにそのコンボとなるモジュールがリリースされてました。 HTML::TreeBuilder::Select 例えばtext-vimcolorの出力の中でsynIdentifier扱いされるブロックで変数と思しき物だけvar要素に置換して、出力するなら下記みたいなソースになる。 #!/usr/bin/perl use strict; use warnings; use HTML::TreeBuilder::Select; my $html; read(STDIN, $html, -s *STDIN); my $tree = HTML::TreeBuilder::Select->new; $tree-
Six Apart - Tech Talk Blog: Perl モジュールの作り方
こんにちは。TypePad Engineer の重田です。 今年も YAPC::Asia Tokyo の季節がやってきました。今回も豪華メンバが参加するのでとても楽しみですね。 さて今回はYAPCにちなんでPerlモジュールの作成方法をご紹介します。 準備 Perl プログラマのバイブルである Perl Best Practices の Chapter17: Modules の Refactoring の冒頭で Damian Conway が言っています。 Place original code inline. Place duplicated code in a subroutine. Place duplicated subroutines in a module. さあ皆さんもそろそろ車輪の再発明に別れを告げてモジュール作りをはじめてみませんか？ h2xs 少し前の書籍などでは h2
さくらインターネットでCPANを利用する (おぼへがき)
さくらインターネットを利用しており，サーバを丸ごと借り切っていない場合は，ルート権限が無いためCPANを利用してPerlのモジュールをインストールすることができない． ディレクトリをあらかじめ用意 $ mkdir -p ~/local/var/db/pkg CPANに関する設定を編集 $ vi ~/.cpan/CPAN/MyConfig.pm で，いくつかの項目を設定する．mbuildpl_arg 以外は存在するので書き換える ---- 'make_install_arg' => qq[SITEPREFIX=$ENV{HOME}/local], 'makepl_arg' => qq[INSTALLDIRS=site LIB=$ENV{HOME}/local/lib/perl5 PREFIX=$ENV{HOME}/local], 'mbuildpl_arg' => qq[./Build --
HTML::Selector::XPath をリリース: blog.bulknews.net
HTML::Selector::XPath をリリース CSS Selector in Perl とか subtech - Bulknews::Subtech - CSS selector to XPath あたりで議論していた CSS 2 Selectors to XPath コンパイラなモジュールをつくって、CPAN に HTML::Selector::XPath としてリリースしました。 使い方は naoya さんが先に書いてますが、HTML から正規表現を使うことなくスクレイプするのに便利。たとえば Mixi にログインしてマイミク最新日記と、１件目のタイトル、本文を抜き出すコードが、以下のようにかけます。 #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use HTML::Selector::XPat
CPAN::Mini で CPAN のミラーをローカルに: blog.bulknews.net
CPAN::Mini で CPAN のミラーをローカルに DECON で話してきたネタですがちょっと詳しく。 飛行機やら電車の中やらでオフラインハックするときに（たまに）問題になるのが CPAN モジュールの不足です。「あぁ、このマシンにはあのモジュール入ってねぇ～」とかでハックが滞るのは萎えます。というわけで minicpan。CPAN::Mini というモジュールで、CPAN モジュールの最新版だけを持ってきてミラーをつくることができます。 導入は簡単で、CPAN から install CPAN::Mini すると minicpan というコマンドが付属してきます。コマンドラインから使うには、 > minicpan -r http://ftp.funet.fi/pub/languages/perl/CPAN/ -l ~/minicpan とかすれば finet から HTTP で同期で
プログラミングと開発者のためのCodeZine：Perlで作るモバイルサイトのコツ：第1回（Perl, モバイル, CPAN）
http://www.cpan.org/。Perlのライブラリ・モジュールソフトウェアやその他のPerlで書かれたソフトウェアを集めた巨大なアーカイブで、世界中のサーバーにその内容がミラーされています。 対象読者 Perlを実行できる環境にて携帯サイトの構築を考えている方。 必要な環境 Apache 1.3系または2系 Perl 5.6以上 User-Agentより端末判別を行う 携帯サイト構築の主な処理として挙げられるのがUser-Agent解析によるキャリア、モデル、シリーズなどの分類処理かと思われます。iモード、EZweb、Vodafoneの3キャリアを判別するだけでも複数のパターンが存在しており、端末のモデルを取得するまでにはさまざまな条件分岐処理の記述が必要となります。それらをスマートに行う方法はHTTP::MobileAgentを使うことで、User-Agent
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
WWW-Shorten-Bitly-1.17
404 エラー - PoWer Station
はてなブログ | 無料ブログを作成しよう