【在线求助】一个简单的判断某目录下是否存在文件夹，没有则创建

flysky_coool

源代码如下：

#!/usr/bin/perl -w

sub check_and_create_dir
{
  my $temp_dir = $_[0];
  
  if ($temp_dir ne "")
  {
    if (-d $temp_dir)
    {
      mkdir -p $temp_dir;
    }
  }
  else
  {
    print "Could't find any dir,please input again!";
  }
}

check_and_create_dir("a");

意思是在该脚本当前目录下判断是否存在 a 目录，没有则新建a目录，我是在suse 11 上执行的，创建不了a目录

stanley_tam

试试。。{:3_193:}

1. #!perl
   
2. mkdir 'a'

复制代码

q1208c

if (-d $dir) {
mkdir -p $dir;
}

这个 $dir 永远不会创建成功. 因为它 -d $dir 的值 为 假 .

flysky_coool

stanley_tam 发表于 2014-03-01 15:32
试试。。

你这回复是在逗我吗

pitonas

1. if ( -d $temp_dir ) {
   
2.     print "$temp_dir exists!\n";
   
3. }
   
4. else {
   
5.     mkdir $temp_dir;
   
6.     print "mkdir $temp_dir\n";
   
7. }

复制代码

stanley_tam

1. 木有逗你啊
   
2. mkdir -p $temp_dir => 怎么感觉是shell里mkdir的用法。 在perl貌似应该写成`mkdir -p $temp_dir`;
   
3. 
   
4. mkdir $temp_dir; 应该能符合你的要求。如果$temp_dir不存在则创建

复制代码

回复 4# flysky_coool