[kansaipm] Re: Perl 5.6 ネタ

[OKABE, Keiichi]

岡部です。

----- Original Message ----- 
From: <mishima at momo.so-net.ne.jp>
To: <kansai-pm-list at pm.org>; <okabek at beige.ocn.ne.jp>
Sent: Friday, April 07, 2000 10:03 AM
Subject: [kansaipm] Re: Perl 5.6 ネタ


> 岡部さんこんにちは。
> おかげさまで perl-win32-j のほうではいつも勉強させていただいてます。

三嶋さん、こんにちは。こちらこそ、ためになるスクリプトありがとうございます。

> さらに、ファイルI/O時にフィルタを仕込めるようにした FileHandle のサブ
> クラスを作ってみましたので、後ろにサンプルプログラムと共に付けておきま
> す。（FileFilterと名づけました）

これ勉強させていただきます。SJISとEUC、予め設定を読むか、頭何バイトかを
読んで自動判別するようにしたらおもしろそうですね。

# そういえば、TKはutf-8対応になっているんだろうか。

---
use Tk;$c=tkinit->Canvas(-height=>50,-width=>100)->pack;$a="15115155,223342,
2343,3335,24254544,6163,5292918185,53939484,7273,6465757464";$a=~s/\s//g;
map{s/(\d)/sprintf("%s,",$1*10)/eg;$c->createLine(split /,/,$_)}(split /,/,$a);
MainLoop; #okabek at beige.ocn.ne.jp