へんなの

を作った。

#!/usr/bin/perl -w
# 0
#

use strict;
my $filename = $0;				# $0は起動したPerlのファイル名

open (IN, "<$0");
my @data = ;
close(IN);

foreach (@data) {
	if (/^(\# )(\d+)\n/) {
		my $comment = $1;
		my $number = $2;
		$number++;
		my $replace ="$comment$number";
		s/$1$2/$replace/g;
	}
}

open (IN, ">$0");
while (@data) {
	$_ = shift(@data);
	print IN "$_";
}
close(IN);

# test.pl ends here.

実行するたびに# 0の数字が加算されていくだけ。