にひりずむ::しんぷる - YAPC::Asia 2010 前夜祭で LT をしてきたこんにちは！今年も YAPC の季節がやってきましたね！ 今回の前夜祭は Casual Perl がやっていたので、とりあえず LT をしてみました。 既にお酒が入っていたのでよくわからないプレゼンだったと思いますが、発表資料を張っておきます。
にひりずむ::しんぷる - pm-uninstall を local::lib に対応させた
Yuji Shimada / App-pmuninstall-0.05 - search.cpan.org あるお方から 「pm-uninstall -l extlib Foo したい！！」って言われたので、書きました。 $ mkdir extlib $ cpanm -l extlib App::cpanoutdated $ pm-uninstall -l extlib App::cpanoutdated $ cpanm -L extlib App::cpanminus $ pm-uninstall -L extlib App::cpanminus みたいに使えます。簡単ですね。 あと、ついでに空のディレクトリを消すようにしました。*1 このモジュール入れたけどやっぱ ｲﾗﾈ みたいなときに便利なので、ぜひご利用ください。
にひりずむ::しんぷる - Git ライクなコマンドライン引数を処理できる Getopt::Compact::WithCmd を書いた
近いうちに水性ペンを買います。（挨拶） コマンドライン引数を処理するモジュールっていっぱいありますね！ありすぎてどれがいいかよくわからないし、「まぁぶっちゃけ Getopt::Long さえあれば大体いいよね！コアだし！」って感じですが、まぁなんか書いた。 xaicron's p5-Getopt-Compact-WithCmd at master - GitHub App::Cmdとかありますが、あれはモジュール化しなきゃいけなくて、大変めんどうです。*1 俺は一枚のスクリプトに書きたいんだ！！ サブコマンド前提 usage は自動生成 default や required の指定が可能 依存が少ない（かも）*2 という感じです。最初は、Getopt::Compactを継承して書いてたんですが、途中からなんかあびゃーってなったのでやめました。使い方は大体一緒ですが。 Getopt::Com
にひりずむ::しんぷる - あの人の年齢が知りたい！！！ってとき
perl -MTime::Piece -E 'say int do { Time::Piece->localtime - Time::Piece->strptime("1970-09-02", "%Y-%m-%d") }->years'; でいける
にひりずむ::しんぷる - make test のコマンドを書き換える Module::Install::TestPreload を書いた
タイトルを盛大に間違っていたので修正＞＜ なんかたまに make test のコマンドを書き換えたい時ってありますよね。 で、 Test::mysqldとかでテスト走らせる際に行ったいろんな事。 - D-6 [相変わらず根無し] とかをやりたい時に、Makefile を自力で書き換えるとなんかウガーってなる*1ので、なんかそのへんを宣言的にかければいいよねって思ったので作りました。 xaicron's p5-Module-Install-TestPreload at master - GitHub 使い方は以下のような感じで書くと use inc::Module::Install; name 'MyApp'; all_from 'lib/MyApp.pm'; build_requires 'Test::More', 0.88; test_requires 'Test::mysqld'; t
にひりずむ::しんぷる - TT vs TTerse
TT で TT の説明を書くような場合、 [% "[% foo.bar %\]" %] のように、クォート内でもタグの処理がされてしまうため、良くわからないエスケープ*1をしなくてはならなく*2、とてもハマったが、xslate の TTerse ならば自然に [% "[% foo.bar %]" %] と書く事ができる。 さらに言うと、xslate は syntax を差し替えることが可能なので、TTerse の説明を書くような場合は、 Kolon を使える。 こういうちょっとした動作確認をしたい場合も、TT 付属の tpage はファイルしか受付ないが、 xslate コマンドは -e でワンライナーを受け付けるため $ xslate -s TTerse -e '[% "[% foo.bar %]" %]' [% foo.bar %] $ xslate -s Kolon -e '[% f
にひりずむ::しんぷる - WWW::YouTube::Download 0.15 released
Yuji Shimada / WWW-YouTube-Download - search.cpan.org 海外の方から「動かないお！！！」ってレポートが来たので、先程修正して上げました。（まだsearch.cpan.org には反映されてないですが） 404でちゃう！！って人は version up をお願いします。
にひりずむ::しんぷる - xaicron - 24 released!!
Perlが少しだけ出来る気になってます。 JavaScriptはよくわかりません。 Rubyもちんぷんかんぷんです。 Pythonは難しいです。 ActionScript勘弁してください。 Javaあばばばばば。 低級言語できません。
にひりずむ::しんぷる - chdir や mkdir や file open を繰り返すようなテストを書くとき
以下のような関数を用意しておくと便利ですね。 use strict; use warnings; use Cwd qw/getcwd/; use File::Temp qw/tempdir/; sub safe_dir(&) { my $code = shift; my $cwd = getcwd; my $tmpdir = tempdir CLEANUP => 1; chdir $tmpdir or die $!; local $@; eval { $code->($tmpdir) }; chdir $cwd or die $!; croak $@ if $@; } こうしておけば、 use Test::More; subtest foo => sub { safe_dir { my $cwd = shift; mkdir 'hoge'; chdir 'hoge'; open my $f
にひりずむ::しんぷる - tests_recursive ってのがある
ちょっと前に Module::Installのソースみたり、pod みたりしてたたら、tests_recursive ってのを見つけた。 これを使うと、いままでこう書いてたのが use inc::Module::Install; tests 't/*.t t/*/*.t t/*/*/*.t t/*/*/*/*.t'; こうかける use inc::Module::Install; tests_recursive 't'; みたいな
にひりずむ::しんぷる - Yokohama.pm#6 x Perl Casual#3 で LT してきた
ビデオ・オン・デマンドは（VODは略す）制御のための聴衆を容易にしたり、独自の選択とプログラムビデオクリップを決定インタラクティブTVシステムです。顧客が望むプログラムや、時計が表示されたときに決定することができるようにビデオレンタルなどのVOD使いやすさ、。選択科目は、映画のタイトル、テレビシリーズの可能なシリーズは、事実、ビデオストリーミングだけでなく、他のプログラムを示しています。ちょうどその観客は自由にプログラムを格納し、ダウンロードすることができ、見ていません。観客を見てのために既にダウンロードされているビデオのセットトップボックスを活用する、またはPC、携帯電話などを開いて、オーディオとビジュアルコンテンツを有効に電子通信機器の使用を行うことが可能です。いくつかは、支払・パー・ビューペイ・パー・ビューの様々なVODサービスを提供しています。
にひりずむ::しんぷる - .tpagerc が何気に便利
TT をインストールすると、tpage というコマンドラインツールが付いてきます。こいつを使うと、コマンドから template を扱うことができて、あら便利ですね。 モジュールの雛形とかは下記のような感じで、 $ cat hoge.tt package [% module %]; use stict; use warnings; use 5.008001; our $VERSION = '0.01'; 1; __END__ =head1 NAME [% module %] - =head1 SYNOPSIS use [% module %]; =head1 DESCRIPTION [% module %] is =head1 AUTHOR [% author %] E<lt>[% email %]E<gt> =head1 SEE ALSO =head1 LICENSE This libr
にひりずむ::しんぷる - Perl の __FOO__ キーワードを書き換える
perl には コンパイル時に決定する、 __PACKAGE__, __FILE__, __LINE__, __DATA__, __END__ というキーワードが存在します。 以下のような hoge.pl を書いて Deparse してみるとコンパイル時に展開されているのがわかりますね！ use strict; use warnings; use 5.0100; say __FILE__; say __PACKAGE__; say __LINE__; say __DATA__; say __END__; $ perl -MO=Deparse hoge.pl sub BEGIN { use warnings; use strict 'refs'; require 5.01; } use warnings; use strict 'refs'; BEGIN { $^H{'feature_say
にひりずむ::しんぷる - Re: Amazon のデカイ書影をダウンロードする
Amazon のデカイ書影をダウンロードする - 冬通りに消え行く制服ガールは、夢物語にリアルを求めない。 - subtech この「拡大」からいけるやつは、Google Map みたいな感じになっており、400x400 で分割されているので、結合してやる必要があります。 実は元のでっかい画像は誰でもアクセスできるページにぽつねんとおいてあるので、ASIN から URL を作ってやれば簡単に取れるます。 昔にこっそりと、ブックマークレットも書いてました。 にひりずむ::しんぷる:Amazonの拡大機能で見れる最大の画像を表示して保存できるブックマークレット書いた んで、肝心のURL のフォーマットは http://z2-ec2.images-amazon.com/images/P/{ASIN}.{SEQUENCE}._SCRMZZZZZZ_.jpg とかなので、 One-Liner とかで
にひりずむ::しんぷる - subtest で indent 出力の indent が崩れるのが直ってた
There are many involving variables that you can consider when starting out your current auditing controls and also procedures and you can perhaps take action for every office; opt for whichever will serve your small business the ideal. Make sure you always be vital using the selections that you will alllow for environment the following upward, since it refers to lifespan method to obtain your smal
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
にひりずむ::しんぷる - 続・tests_recursive
にひりずむ::しんぷる - INI ファイルを parse するいくつかの方法
にひりずむ::しんぷる - perl で jsonpretty
にひりずむ::しんぷる - App::pmuninstall 0.03 released
にひりずむ::しんぷる - close STDERR とかしちゃだめ