[Tokyo.pm] ANSI Standard Perl ?

[OKABE, Keiichi]

岡部です。www.perl.comに
おもしろそうな記事がでてます。

http://www.perl.com/pub/2000/06/rosler.html?wwwrrr_rss

'http://www.news.perl.org/my_potal/'
に載ってる題名とはちょっと違うけど。
---
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 ＠ beige.ocn.ne.jp