Is there a command to open a file as well as to create the directoryif it is not exist?

[Peng Yu]

Hi,

The following code would give the following error, if the dir 'xy'
does not exist.

print() on closed filehandle OUT at ./open.pl line 7.

I'm wondering if there is a perl command that is smart enough to
create an directory automatically when it opens a file for write.

Thanks,
Peng


#!/usr/bin/perl

use strict;
use warnings;

open(OUT, '>xy/abx.txt');
print OUT "Hello World\n";

 

[Jürgen Exner]

I'm wondering if there is a perl command that is smart enough to
create an directory automatically when it opens a file for write.

I wouldn't want to use such a command, the chances of messing up the
file system are just too big.

Why not simply check if the directory exists (-d) and if it doesn't then
create it (after confirming, that you really, really meant to create a
new directory).
If it's a tree then use File:ath to create the whole tree with one
call.

jue