http://www.perlmonks.org?node_id=665789


in reply to Creating new folders

You should always test your file operations.

Try this: 

if (!-d "e:/web/public_html/eagle_f91/ffinfo/protected/images/$Game") 
+{
    mkdir("e:/web/public_html/eagle_f91/ffinfo/protected/images/$Game"
+) or die("$!\n");
}
if (!-d "e:/web/public_html/eagle_f91/ffinfo/protected/images/$Game/$S
+ubSet") {
    mkdir("e:/web/public_html/eagle_f91/ffinfo/protected/images/$Game/
+$SubSet") or die("$!\n");
}
if (!-d "e:/web/public_html/eagle_f91/ffinfo/protected/images/$Game/$S
+ubSet/thmb") {
    mkdir("e:/web/public_html/eagle_f91/ffinfo/protected/images/$Game/
+$SubSet/thmb") or die("$!\n");
}

[download]
$! will show you the specific error message.

UPDATE: fixed typo

grep
One dead unjugged rabbit fish later...

Replies are listed 'Best First'.
Re^2: Creating new folders
by Eagle_f91 (Acolyte) on Feb 03, 2008 at 03:53 UTC
    Thanks I had forgoten about the die command, but in this case it did not help.
[reply]
      It's not really the die that's important. It's the test of file operation and the printing of $!. You could just as easily write: 
      if (!-d "e:/web/public_html/eagle_f91/ffinfo/protected/images/$Game") 
+{
    mkdir("e:/web/public_html/eagle_f91/ffinfo/protected/images/$Game"
+) or print "$!\n";
}

      [download]
      If there's an error it should populate $!, that error message will tell you what went wrong (generally). So it should either work or give you and error. So it has to help.

      grep
      One dead unjugged rabbit fish later...
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom