ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Perl のローレベルエラー処理 (もしくは Errno.pm のススメ) - JPerl Advent Calendar 2009
Perl のローレベルエラー処理 (もしくは Errno.pm のススメ) - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ 例えば、「ディレクトリが存在しなければ作成」という処理を書くことを考えてみます。 if (! -d $dir) { mkdir $dir or die "failed to create dir:$dir:$!"; } でいいしょうか？ いえ、違います。これだと、-d 演算子でディレクトリの不存在を確認した後、mkdir を呼ぶまでの間に他のプロセスがディレクトリを作成してしまう可能性があります。なので、たとえば C ならば、 if (mkdir(dir) != 0 && errno != EEXIST) { fprintf(stderr, "failed to create d
TwiterとOAuthとperlでの実装 - Lazy Programmer :-p
UmakatterにOAuthを利用した機能を組み込みました。 TwitterのOAuthなのですが、Net::Twitter を利用すると本当に簡単に実現できます。こんなコードです。 OAuthアカウント作成 http://twitter.com/oauth_clients にて、アカウントを作成してください。 Net::Twitter::OAuthじゃなくてNet::Twitter::Role::OAuthの方の PODを読むと吉 Net::Twitter::Role::OAuth に書いてある通りにやると、とても簡単に実装できます。(Typoがいくつかあるので注意) OAuth認証へのリダイレクトしょり こんな感じで、リダイレクトする前に、token, token_secretをユーザのクッキーに保存しておきます。 my $nt = Net::Twitter->new( %{$con
Spreadsheet::WriteExcel = Perl で Excel 出力
業務系アプリを書いていると、csv 出力ぢゃなくて、Excel データそのものを出力できたらなぁ・・・と思うことがあると思います。そこで、 Perl で Excel データを生成する方法と日本語を扱うときの注意点をまとめてみました。 環境構築編／必要な Perl モジュールをインストールします。 下記コマンドを root 権限のあるユーザで実行してください。 perl -MCPAN -e 'install Spreadsheet::WriteExcel' perl -MCPAN -e 'install Spreadsheet::ParseExcel' perl -MCPAN -e 'install Unicode::String' 日本語を含む Excel データの生成例 #!/usr/bin/perl -w use strict; use Jcode; use Unicode::Stri
utf8::SWASHGETが重い - グニャラくんのグニャグニャ備忘録@はてな
なんか動かしてるプログラムのとある関数がやたら重い。 DProfセンセ〜イ！！ %Time ExclSec CumulS #Calls sec/call Csec/c Name 59.3 36.62 38.237 1 36.621 38.236 Omokute::Tamaran::Function 19.6 12.10 15.161 15223 0.0008 0.0010 utf8::SWASHGET ぎゃあ。激重いがな！utf8::SWASHGET。 で、正規表現を使う際に内部的に呼ばれているらしいけど、 ちょっと重すぎ。 http://www.nntp.perl.org/group/perl.unicode/2807 によると、 Unicode含まない正規表現使うときは、 そこだけスコープ切って、その中でuse bytesを指定してあげな！ だそうです。 めんどい。 しかも日本語での情
j3.info | 写真メインでのんびり綴られる日記
だいぶ時間がかかりましたが、HG 1/550 ノイエ・ジール完成しました。 このキットは、ポリキャップを使わずに、はさみこんでいく設計です。なので、そのまま組むと、例えば、腕全体と本体が外せなくなります。後ハメ加工をする手もありますが、ポリキャップを適宜組み込んでいくようにしました。 前面と背面。形成色よりやや暗めに塗装しました。他、細かくディティールアップしました。 サブアームを装備して、別角度。サブアームは塗装だけで、無改造。 カメラアイは、プラ棒で作り直して、シルバー＋クリアーオレンジ塗装したので、うまくライトアップすると反射します。 カメラアイ以外に大きくいじったのは、肩の上部を切り離して大型化、バーニアを追加、腰のパイプをゴム線＋パイプパーツで作り直しというところです。スジ彫りを細かく増やす加工はあまり好みではない（ていうか出来ない）ので、控えめにしました。 後は、適当に何枚か。
hori-uchi.com: Perlモジュールのバージョン確認
たとえばこのサーバにインストールされているCGI.pmのバージョンを確認したいなんて時は perl -MCGI -e 'print $CGI::VERSION' なんてコマンドを打ってやれば確認できますが、これをいちいち打つのはめんどくさいので、簡単なスクリプトを書いてみました。 #!/usr/bin/env perl use strict; use File::Basename; use Getopt::Std; getopts('v', \my %opt); die "Usage: ". basename $0. "[-v] [ ...]\n" if @ARGV == 0; no strict 'refs'; for (@ARGV) { (my $path = $_) =~ s{::}{/}; eval {require "$path.pm"}; if ( $@ ) { print
flymakeでTemplate::Toolkitによるテンプレートファイルのシンタックスチェックを行う - Kentaro Kuribayashi's blog
Template::Toolkitによるテンプレートが複雑化してきて、flymakeによるシンタックスチェックをしたくなったのでやってみました。以下、あんまり整理されてないので、僕以外の環境ですぐに動くようになるというものでもないと思いますが、参考までに掲載しておきます。 実行例は以下の画像の通り。 まずは、以下のスクリプトをPATHの通ったところにでも、tt_parse.plとして保存します。 #!/usr/bin/env perl use strict; use warnings; use Path::Class qw(file); use Template::Parser; my $file = file(shift); my $template = $file->slurp; my $parser = Template::Parser->new; if (!$parser->par
のぶろぐ: perltidyを試してみた
perltidyというのは、Perlベストプラクティスに載っている、ソースコードを綺麗に整形してくれるソフト。 最初は実行形式のプログラムだと思っていたら、Perlスクリプトだった。 考えてみれば、PerlをWindowsでやっていることがどちらかといえばイレギュラーなので、Windowsの実行形式でないのは当然か。 インストールの方法がよくわからなかったのだが、モジュールならcpanからインストールできるんじゃないかと思ってモジュール名を指定したところ、ズバリ、ありました。 そのままインストールを開始。 cpanがちゃんと使えるようになっていれば、インストールは簡単。 cpan> install Perl::Tidy インストールが完了すると、Perl.exeと同じフォルダに「perltidy.bat」というファイルができた。 あとは簡単に手順を。 oreilly.com -- O
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.hirax.net/misc/amet/PiChartExcel.pl