perl脚本遍历目录文件拷贝文件并重命名

最新推荐文章于 2024-04-21 22:48:19 发布

checkchen99

最新推荐文章于 2024-04-21 22:48:19 发布

阅读量413

点赞数

文章标签： perl

本文链接：https://blog.csdn.net/checkchen99/article/details/107561494

版权

将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" );
}
}
}