java jar文件中查找class是否存在

#! /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`;

各位小伙伴们，登录日本亚马逊网站http://www.amazon.co.jp可以买到很多你意想不到的商品，国外品牌的价格通常只有国内网站的一半左右，而且相对于淘宝代购，东东绝对都可以保证是正品，购物指南详见http://haitaoant.blog.163.com/blog/static/23467611820143168369739，也可以登淘宝网搜店铺“海淘小蚂蚁”，店主为“深蓝色256”，里面有关于海淘及货物转运方法的详细说明！朋友做海淘，纯粹帮朋友忙，如果你还只上淘宝就已经out了，快来加入海淘一族吧！