Я пишу скрипт для переименования / копирования содержимого файла.
У меня есть temp & temp1 папки. Внутри temp1 у меня есть 1000 .txt файлов с именами 1.txt, 2.txt, 3.txt ... & в папке temp У меня есть подкаталоги с именами 1, 2, 3.
В папках 1, 2, 3 ..., у меня есть один файл с расширением java или xml.
Мне нужно автоматизировать копирование содержимого файла .txt и вставить его в соответствующий файл в подкаталоге temp. Возможно ли это сделать с помощью Perl?