将java文件内容输出到新文件并重名为.h文件
#!/usr/bin/perl
my $indir = $ARGV[0];
&find_fileindir("$indir");
sub find_fileindir(){
#print "$dir\n";
local($dir) = @_;
opendir(DIR,"$dir"|| die "can't open this $dir");
local @files =readdir(DIR);
#local @files =(sort grep(/^.*\.java$/,readdir(DIR)))
closedir(DIR);
for $file (@files){
#print "$dir\/$file \n";
my $filename = "$dir\/$file ";
# print "$filename\n";
if ($file !~ /.java/){
#print "$filename\n";
}else{
#print "$file\n";
print "$filename\n";
#my @fields = split /.java/, $filename;
#my $newfilename = $fields[0];
my $newfilename = "$filename.h";
print "$newfilename\n";
open(DATA1, "$filename");
# 打开新文件并写入
open(DATA2, ">$newfilename");
# 拷贝数据
while(<DATA1>)
{
print DATA2 $_;
}
close( DATA1 );
close( DATA2 );
}
next if($file=~m/\.$/ || $file =~m/\.\.$/);
if ($file =~/\.(sql)$/i){
print "$dir\/$file \n";
}
elsif(-d "$dir/$file"){
find_fileindir("$dir/$file" );
}
}
}