mkdir 函数有-p 参数吗？

qfmeal

shell 下可以用mkdir创建目录 mkdir -p /aaa/bbb/ccc/ddd
即使目录 ddd 之前的目录不存在也可以创建。

但是 perl 内置的 mkdir 好像不能使用参数。

在网上查到了以下代码：
use   File:: Path;   
  my   $path='/home/developer/perlDir';   
  eval{mkpath($path,0,0755)};   
  if($@)   
  {   
        warn("Make   path   [$path]   failed:\n $ @ ");   
  }   
还没有试可不可行，有更简单些的方法吗？

[ 本帖最后由 qfmeal 于 2009-11-4 11:18 编辑 ]

bernana

system "mkdir -p /aaa/bbb/ccc/ddd";

qfmeal

除了
system "mkdir -p /aaa/bbb/ccc/ddd";
和
`mkdir -p /aaa/bbb/ccc/ddd`;

还有别的方法吗？ 用perl的函数。

hitsubunnu

******

[ 本帖最后由 hitsubunnu 于 2009-11-4 12:11 编辑 ]

churchmice

当然有
问题是你想要干什么？放着好好的system不用？一定要写个100行的perl代码你才甘心

qshllxfx

File::Path mkpath

flw

原帖由 churchmice 于 2009-11-4 13:07 发表
当然有
问题是你想要干什么？放着好好的system不用？一定要写个100行的perl代码你才甘心

不用 100 行吧。
而且用 system 确实不是一个好习惯。

楼主选择 mkpath 是对的，只是用法不对。

1. flw@waker:~$ perl -MFile::Path -e 'mkpath(["bar/a/b/c"],1,0777)'
   
2. mkdir bar
   
3. mkdir bar/a
   
4. mkdir bar/a/b
   
5. mkdir bar/a/b/c
   
6. flw@waker:~$ find bar
   
7. bar
   
8. bar/a
   
9. bar/a/b
   
10. bar/a/b/c
    
11. flw@waker:~$

复制代码

qfmeal

#!/bin/perl -w use strict; use File::Path qw( mkpath ); mkpath("/home/Administrator/perl/aaaa/bbbbb/cccc/dddd",1,0755);

我不是放着好好的 system 不用。
因为这个效率太低。如果perl能实现就不用system。

我是新手，原来写脚本的时候从来没有考虑过这个问题，在一个循环里用了system，调用了很多次。
脚本执行需要10几分钟。后来仅仅是修改了system这部分，脚本执行还不到一分钟。

churchmice

那你可以考虑下使用多个参数的system
system("ls -l")
这样的写法是会在后台调用/bin/sh的
但是
system("ls","-l")
这样的写法可以绕过/bin/sh直接调用/bin/ls

qfmeal

原帖由 churchmice 于 2009-11-4 14:37 发表
那你可以考虑下使用多个参数的system
system("ls -l")
这样的写法是会在后台调用/bin/sh的
但是
system("ls","-l")
这样的写法可以绕过/bin/sh直接调用/bin/ls

谢谢