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