[perl]ソースコードに行番号を付けるスクリプト

というのができた、他のもの作ってたんだけど思わぬ副産物やね
ちなみに本当に作ろうとしていたのは「ブラウザ越しにホームページを作成＆編集できるスクリプト」、大体できたけど日本語が上手くいかない、あとインターフェースが微妙
というわけで、そろそろ（しょぼい）自作ブログくらい作れそうな勢いです、作らないけどねw　忍者で満足してるし

「read.pl」使い方は「%read.pl filename」

---

#!/usr/local/bin/perl
#
#%read.pl filename
use strict;

my $filename = './read.pl';

$filename=$ARGV[0];

open FILEHANDLE, "<$filename" or die "cannot open : $!";
my $i=0;
while (my $str = ){
	$i++;
	print $i,"\t",$str;
}
print "\n";

close FILEFANDLE;