时间戳

首页 > 解决方案 > 无法使用 make_path 创建目录

perl - 无法使用 make_path 创建目录

问题描述

我试图使用 Perl 在其中创建一个目录和一个子目录。这是代码：

  #!/usr/bin/perl
  use strict;
  use warnings;
  use Cwd qw(abs_path);
  use File::Path qw(make_path remove_tree);
  my $path = abs_path();
  my @create = make_path($path , '/test/data' , {
                                                  verbose => 1,
                                                  mode => 0777,
                                                })
               or die "failed to create directory /test/data $!";

它显示以下错误：-

    failed to create directory /test/data  at ./perl_project.pl line 7

我做错了什么？

标签： perl

解决方案

如果要/test/data在当前目录中创建路径，请更改：

 my @create = make_path($path , '/test/data' , {

到：

 my @create = make_path($path . '/test/data' , {
 #                            ^

由于您在make_path中使用了逗号，因此您的代码尝试创建 2 个目录：一个在当前目录 ( $path)，另一个在绝对路径/test/data。

推荐阅读