しばし悩む。あしたまた考える。

を作った。 #!/usr/bin/perl -w # 0 # use strict; my $filename = $0; # $0は起動したPerlのファイル名 open (IN, "; close(IN); foreach (@data) { if (/^(\# )(\d+)\n/) { my $comment = $1; my $number = $2; $number++; my $replace ="$comment$number"…

ここにあった。http://web.archive.org/web/20030808023511/http://koten.hypermart.net/auto-save-buffers.lGPLなので、xyzzy wikiに移動させても良いかも。