ネタが無いのでこんなの投下。Pythonの様にインテンドされてブロック形式になっているテキストファイルを、ブロック単位で逆順にする。 #!/usr/bin/perl -w use strict; use utf8; my $blockStringBuff = ""; my @blockArrayBuff = (); while (<>) { chop();…

写真をずらずら溜め込んでいたら、いつの間にか100や200になり、NFSの接続がぶつぶつ切れるようなって来たので、ファイルをinodeChangeTime*1か変更日のどちらかでディレクトリを作って整理？をするスクリプトを書いた。Pod::Textが最新版*2でないと動かない…

CGI::Carpが良いよ。エラーログをブラウザに出してくれて、error_log見なくて済む。Carp良いよCarp以下、perldoc CGI::Carpより use CGI::Carp qw(fatalsToBrowser); die "Fatal error messages are now sent to browser";

タイトル通りそのまま。表示したい時に、下記のようにPod::TextでDATAカット以下のPODを読み込ませて表示させる。 use Pod::Text; my $p = Pod::Text->new(); $p->filter(*DATA); ... いろいろプログラムがある ... __DATA__ =head1 ... ...

あたしの鯖では、韓国とか中国からのsshとかsmtpの攻撃が多いので、pfでIPごと拒否するように設定しています。 IPの割り出しは、delegated-apnic-latestを使っています。今日、友人が私の鯖にアクセスできないという興味深い事が起きて、その原因がIP拒否だ…

Perl で fifo デバイスを作ったりするメモ書き。順番に、デバイスにアクセスしてきた者に対して、適当なIDを渡すプログラム。 #!/usr/bin/perl -w use strict; use Fcntl; print "FIFO device test\n"; $ENV{PATH}=qw{/bin:/usr/bin:/sbin:/usr/sbin:/etc:/u…

久しぶりに、DBIのプログラムを書いたのですけど、なぜか Core Dumpする・・・

Pingで使われているICMPのデータ範囲は、適当な(randomな)データになっているので、それを利用してみるテスト。要は、Pingでファイルを飛ばすって事。

Firefoxの検索プラグインを作成しました。今回は、Cpan、Perldoc、PHPです。

モンゴル語を表示させるプログラムを、Perlで作ってみた。

匿名ハッシュとか配列とかスカラーとかサブルーチンを作成するのに、Perlでは下記の構文がある。