jar文件查找类

#! /usr/bin/perl

my $jar_list = ".jar.list";
die "findinjar dir class name" if(@ARGV != 2);

my $classname = $ARGV[1];

#list all jar files in given dir
`find $ARGV[0] -name "*.jar" > $jar_list`; 

open(JAR_FILE,"$jar_list") || die "there not any jar files!";
while (<JAR_FILE>)
{
	#list all class files in jar
	my $r = `jar tvf $jar $_`;	
	if ( $r =~ m/$classname/m)
	{
		print "$_ \n";
	}
}
close(JAR_FILE);
`rm $jar_list`;