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