というときは UNIVERSAL::whichです。 http://search.cpan.org/dist/UNIVERSAL-which/lib/UNIVERSAL/which.pm作成の経緯は以下みたいです。 http://blog.livedoor.jp/nipotan/archives/50506829.html ↓ http://blog.livedoor.jp/dankogai/archives/50493208.…

前々から疑問を持っていたCPANについての疑問を解消した。 一般ユーザ権限でのCPANの使用 要はroot権限以下では/usr/lib/perl5あたりにインストールされるのを、自分のホームディレクトリ以下に置けばいい。 というわけで、/usr/lib/perl5に相当するディレク…

#!/usr/bin/perl use strict; use warnings; my $string = 'foo ^bar baz'; my $regex = '^bar'; $string =~ s/$regex//; print $string . "\n"; 実行結果 foo ^bar baz#!/usr/bin/perl use strict; use warnings; my $string = 'foo ^bar baz'; my $regex =…

そういうときは<>演算子じゃなくて、readlineだよってお話。 #!/usr/bin/perl use strict; use warnings; our $test = './test.txt'; my $hashref = fh_open($test); while(<$hashref->{handle}>){ print; } exit(); sub fh_open{ my $filename = shift; ope…

公式:http://gearman.org/ キューイングを使うメリット ウェブアプリケーションを対象として考えています。 処理を分別できる。 今すぐ必要な処理、後回しにして良い処理、負荷が高い処理、負荷が低い処理を分別することができます。 ユーザがすぐに確認しな…

Perlはグローバルな(myで宣言していない)変数のルックアップにはシンボルテーブルが使用されます。 シンボルテーブルとはハッシュであり、キーと値の対の集合です。 シンボルテーブルのキーとは変数名であり、値は変数名のグロブです。例えば以下のようなコ…

コーディング中に電卓使いたくなることってありますよね。 % perl -de 1 Loading DB routines from perl5db.pl version 1.31 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(-e:1): 1 DB p 10*10 100 DB …

前提知識 Perlからみると文字列は２種類あります。ひとつは、僕たちが見ている文字列と一緒で、Shift-JIS、EUC-JP、UTF-8といったエンコードされた文字列です。これをバイト文字列と呼びます。もうひとつはバイト文字列をデコードして作成されるPerlの内部表…

参考：http://blog.livedoor.jp/dankogai/archives/50681645.htmlPerl5.8以降からIn-Memory Fileという機能が使えるんだそうです。 #!/usr/bin/perl use strict; use warnings; use Devel::Size qw(total_size); my @array = (0x21..0x7e); my $memfile; ope…

Devel::Sizeというモジュールをみつけた。 http://perldoc.jp/docs/modules/Devel-Size-0.58/Size.podこれを使えばPerlの変数がどの程度メモリを喰っているのかを調べることができる。 というわけで以下のようなコードを書いてみた。 #!/usr/bin/perl use st…