#!/usr/bin/perl
###############################################################################
#
#  機能 :
#         メッセージファイルの検索
#  書式 :
#         msggrep.pl 文字列 ファイル名
#
#  $Id: msggrep.pl,v 1.6 2000-06-30 16:52:44+09 hayakawa Exp $
#
###############################################################################
{
    $search_name = $ARGV[0];

    foreach $i (1 .. $#ARGV) {
	$file_name = $ARGV[$i];
	$lcnt = 1;
	
	open(IN_FILE, "sjistoeuc $file_name |");
	while(<IN_FILE>) {
	    if ($_ =~ /$search_name/) {
		print "$file_name $lcnt : $_";
	    }
	    $lcnt++;
	}

    }
}