へんなの
を作った。
#!/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の数字が加算されていくだけ。