[Tokyo.pm] today's one liner

[OKABE, Keiichi]

岡部です。

----- Original Message ----- 
From: <scozens ＠ pwj.co.jp>
To: <tokyo-pm-list ＠ happyfunball.pm.org>
Sent: Monday, January 31, 2000 11:39 AM
Subject: [Tokyo.pm] today's one liner


> $. といえば、昨日のワンライナー：　perl -ne '}print $.{' file

print $.; でないと動きません。　(^^;

'}', '{' のような使い方perldocだとなんで引けばでてくるのでしょう？
ちなみにWin32だと　perl -ne "}print $.;{" file にしないと動きませんでした。
 
> こういうワンライナーが分からない時、B::Deparseのほうがとても便利です：

これも初めて知りました。　(^^;
---
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