访问目录中的多个文件并写入另一个目录

Question

如何从一个文件夹中获取输入文件，并对文件夹中的每个文件执行以下操作，并将它们存储在另一个输出文件夹中，文件为.xml

输入文件夹

main\123\1\file1.txt
main\456\2\file2.txt
main\789\3\file3.txt

输出文件夹

main\123\1\file1.html
main\456\2\file2.html
main\789\3\file3.html

子程序：

while( <$in> )
{
    s/(.+)<\/p>\n<p>/$1 /gs;
    print $out $_;
}

我想让这个子程序在所有文件中运行......

Answer 1

chomp($sk = <>;) #Enter the direcory name for read the input files
opendir(mkh,$sk);
@az = readdir(mkh);
@match = grep{m/.*\.txt/} @az;
chomp($mkd  = <>;) #Enter the directory name for read the ouput files
mkdir "$mkd";
foreach (@match){
open(file,"$sk/$_");
open(new,">>$mkd/$_.html");
print new <file>;
}

希望这段代码可以帮到你。但输出文件名保存为文件扩展名。