[kansaipm] Re: Perl 5.6 ネタ

[mishima at momo.so-net.ne.jp]

舟木さん、こんばんは。
三嶋です。

From: Takayasu Funaki <funaki at onkyo.co.jp>
Subject: Re: [kansaipm] Perl 5.6 ネタ
Date: Wed, 05 Apr 2000 13:39:14 +0900

> 三嶋さん、お久しぶりです (^^

ていうか、舟木さん fj.comp.lang.perl によく出てるから
あんまり久しぶりな感じがしないです。(^^;)

> 知らなさすぎですね。初心者まるだし ＞ 私   (^^;

いや、私も Perl5.6 のモジュールを眺めて発見したとき（舟木さんがfjで質
問するほんのちょっと前）まで、FindBin の存在を知りませんで、
use File::Basename;
use lib dirname($0);
...
てなことをよくやってました。ま、TMTOWTDIだからいいけど。

> しかもperldoc、バッチファイルでできてるってのを見て妙に感心してしま
> いました。でも中身はperl script (^^; 使い方ですが、もう大丈夫ですよ。
> 多分。perldoc -q だけはとりあえず覚えたんで (^^;;;;; =-=- Takayasu
> Funaki funaki at onkyo.co.jp

そうそう、そのへんのバッチファイルって pl2bat.bat で作ってるんですよね。
ということで、perldoc pl2bat も見ておきましょう。

--
$p='Perl'; $_='Masahiro Mishima'; sub _{pack'c*',$x=110+ at _*5,$x+1}
tr/oma/fa_/;s/./chr(ord($&)+2)/ge;@x=(sort(grep{!$_{$_}++}split//),
$p=~/(.(..).)/);$x[7]=~s/^/_/e;$x[8].=_ 1;for(@w=(47,1639,8,31259))
{s/\d/$x[$&+1]/g} print ucfirst "@w.\n";