#!/usr/bin/perl

use strict;
use warnings;
use File::Find;
use File::Basename;

#=============================================================================================
# メイン
#=============================================================================================
my $num=0;

print "dir : ", $ARGV[0], "\n";

find(\&file_process, $ARGV[0]);


#=============================================================================================
# ファイル毎の処理 　　ECU-JP あるいは ASCII と異なる場合は表示
#=============================================================================================
sub file_process{

    my $file;
    my ($base, $dir, $ext);
    my $command;
    my $return_value;
    my $test_file;

    $file = $File::Find::name;                           # ファイル名の取得
    ($base, $dir, $ext) = fileparse($file, qr/\..+$/);   #　ファイル名, ディレクトリー, 拡張子

    $test_file = $base.$ext;

    if($ext eq ".html" || $ext eq ".HTML" || $ext eq ".PHP" || $ext eq ".php"){
	$num++;
	$command = sprintf "nkf --guess %s", $test_file;
	$return_value =  `$command`;
	if(!($return_value=~/EUC-JP/i) && !($return_value=~/ASCII/i)){
	    print $num, "\t", $file, "\t\t", $return_value;
	}
    }
}
