读取一个目录下面的文件名，并将路径及其文件名输出到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);
