perl - perl 脚本递归地创建与输入文本文件中提到的相同的目录

Question

我是 Perl 的新手，并尝试编写 perl 脚本，从文本文件中获取输入作为完整目录名，并创建具有相同文件名的相同目录..

作为输入文本是：

/vob/ccp/test/case/common_it/PTG_Scripts/ha/x86_64_obj/model_number.o
/vob/ccp/test/case/common_it/PTG_Scripts/ha/fru/x86_64_obj/fru_info.o

提前致谢

Answer 1

你需要使用：

File::Path qw(make_path);
make_path($your_dir_path);