Làm cách nào để tạo thư mục nếu thư mục không tồn tại bằng Perl?

Question

Hiện nay, sản lượng Perl của tôi được mã hóa cứng để đổ vào thư mục sau UNIX:

my $stat_dir = "/home/courses/".**NEED DIR VAR HERE**; 

Các tên tập tin được xây dựng như vậy:

$stat_file = $stat_dir . "/".$sess.substr($yr, 2, 2)."_COURSES.csv"; 

Tôi cần một cách tiếp cận tương tự để xây dựng thư mục UNIX, nhưng cần phải kiểm tra xem chúng có tồn tại trước khi tạo chúng không.

TÍN DỤNG TÍN DỤNG THƯỞNG THƯỞNG:
Tự động đánh số (sửa đổi) của $ stat_file để khi các tệp này được bơm vào cùng thư mục, chúng không ghi đè hoặc nối thêm vào tệp hiện có trong thư mục. (Tôi không biết câu hỏi này đã được điền vào S.O. - xin lỗi nếu một bài đăng lại)

Answer 1

Sử dụng toán tử -d và File::Path.

use File::Path qw(make_path); 
eval { make_path($dir) }; 
if ($@) { 
    print "Couldn't create $dir: $@"; 
} 

make_path có lợi thế hơn mkdir ở chỗ nó có thể tạo ra cây có chiều sâu tùy ý.

Và sử dụng -e để kiểm tra tập tin tồn tại

my $fileSuffix = 0; 
while (-e $filename) { 
    $filename = $filePrefix . ++$fileSuffix . $fileExtension; 
} 

Answer 2

Erm ... mkdir $stat_dir unless -d $stat_dir?

Có vẻ như không có ý tưởng hay để nhúng các câu hỏi 'phụ' như thế.

Answer 3

Perl có một built-in chức năng mkdir

Hãy xem perlfunc perldoc hoặc chương trình mkdir từ Perl Power Tools.

Tôi tin rằng việc tạo thư mục đã tồn tại là an toàn, hãy xem tài liệu.

Answer 4

Hãy nhớ rằng sự tồn tại -d của thư mục không có nghĩa là -w có thể ghi. Nhưng giả sử bạn đang ở trong một khu vực cá nhân, mkdir($dir) unless(-d $dir) sẽ hoạt động tốt.