Perl

10進数を16進数へ変換

乗り遅れまくりだけどd:id:hagaeru3sei:20090812に関連して。 VW Transcript clear. #(十 九 八 七 六 五 四 三 参 二 弐 一 壱) asSortedCollection do: [ :each | Transcript show: each, ' ['; show: (each convertToByteArray inject: '' into: [:tmp :b…

比較時の暗黙の変換

コード書いてて超ハマった。一番最初のケース。 var a = 0; var b = ''; var msg; msg = ''; msg += (a == '') + '\n'; // true msg += (a.toString() == '') + '\n'; // false msg += (a === '') + '\n'; // false msg += (a.toString() === '') + '\n'; //…

WindowsのApache2.2でmod_perl2(続き)

shebang書かないとInternalServerErrorが起きてしまって、 それってCGIじゃんとか思っていたけど、 Apacheのstart/stopを繰り返しつつconfファイルを編集してたら、 おおよそ以下のようなものを追加したところで動いた。 #PerlRequire "C:/apps/dev/Apache/A…

WindowsのApache2.2でmod_perl2

WindowsXP SP2 Apache2.2.10 ActivePerl5.10.0.1004 1. コマンドラインからppm。Perl Package Manager起動。[Edit]-[Preferences]でPPM Preferencesダイアログ。 リポジトリ追加する。[Suggester:]で、「uwinnipeg::University of Winnipeg」選択。OK。 GUI…

Perlでベンチマークを取る

仕事で使ったのでメモ。 use Benchmark ':all'; my $testtimes = 999; my $looptimes = 99999; sub test1 { my $a = ''; foreach my $buf (0..$looptimes) { $a .= 'abcdefghijklmnopqrstuvwxyz'; } } sub test2 { my $a = ''; my @list = (); foreach my $b…