工作中用到的一些脚本

读取一个目录下面的文件名，并将路径及其文件名输出到src.f文件中。

`rm -rf src.f`;
$dirname="/proj/mcu/usr/trunk/common";
opendir (DIR,$dirname) || die "Error,try again";
foreach(my @filename= grep {/.vhdl/} readdir(DIR))
{
   print "$_\n";
   $path=$dirname."$_";
   `echo $path >> src.f`;
}

closedir(DIR);

将一个目录下的文件批量修改文件名