#	Perlスクリプトのエラーを一括してチェックするスクリプト。
#	平成19年 5月22日 さいたま・しらぎくさいと
#	(c)2007 Marguerite Site, Saitama, Japan.
#	www.marguerite.jp
#
#	※このスクリプト自身は、任意の文字コードで保存してお使いになれます。

my $file='.ERR.txt';	#出力先。

open (STDERR,">$file");
&sub1(".");
close(STDERR);

sub sub1 {
	my $dir=$_[0];
	my ($i,@d,$f);
	local *D;

	opendir(D,"$dir");
	@d=readdir(D);
	closedir(D);

	foreach $f (@d) {
		next if $f eq '.' || $f eq '..';
		$i=$f;
		$i="$dir\\$f" if $dir ne ".";
		if ($f=~/\A[^\.]+\Z/) {
			sub1($i); next;
			}
		next if !($f=~/\.(?:cgi|pl)\Z/i);
		print "$i\n";
		print STDERR "***** $i\n";
		`perl -cw $i`;	#コマンドラインで打ち込むべきもの。
		print STDERR "\n";
		}
}