[Tokyo.pm] one liner
OKABE, Keiichi
okabek @ beige.ocn.ne.jp
2000年 2月 5日 (土) 09:42:31 CST
岡部です。今日のワンライナー Win32編
オートメーションオブジェクトでサポートしている定数値を探す方法
C:\>perl -MWin32::OLE::Const -e "$c=Win32::OLE::Const->Load(qq/Microsoft Excel/);
map{print $_,qq/:/,$$c{$_},qq/\n/}(keys %$c)"
# ほんとは一行
---
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
Tokyo-pm メーリングリストの案内