Приобретение нескольких файлов в каталоге и запись в другой каталог

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>; 
} 

В надежде, что это немного кода поможет вам. Но имя файла выходных файлов сохраняется с расширением файла.