Làm cách nào để tạo thư mục thư mục và thư mục cha trong một lệnh Perl?

Question

Trong Perl, làm thế nào tôi có thể tạo một thư mục con và, đồng thời, tạo thư mục cha nếu chúng không tồn tại? Giống như lệnh mkdir -p của UNIX?

Answer 1

use File::Path qw(make_path); 
make_path("path/to/sub/directory"); 

Các mkpath phản đối và make_path ưa thích bắt nguồn từ một cuộc thảo luận trong Perl 5 Khuân vác sợi đó là lưu trữ here.

Tóm lại, thử nghiệm Perl 5.10 bật lên sự lúng túng trong phân tích cú pháp đối số của giao diện makepath(). Vì vậy, nó đã được thay thế bằng một phiên bản đơn giản hơn đã lấy một băm làm đối số cuối cùng để thiết lập các tùy chọn cho hàm.

Answer 2

Sử dụng mkpath từ các module File :: Đường dẫn:

use File::Path qw(mkpath); 
mkpath("path/to/sub/directory"); 

Answer 3

ref http://perldoc.perl.org/File/Path.html

"Chức năng make_path tạo ra các thư mục được nếu họ không tồn tại [sic!] Trước, giống như các lệnh Unix mkdir -p"

Answer 4

Vui lòng bỏ qua nếu bạn đang tìm kiếm một Perl mô-đun với 'mkdir -p' chức năng nhưng đoạn mã sau sẽ làm việc:

my $dir = '/root/example/dir'; 

system ("mkdir -p $dir 2> /dev/null") == 0 
    or die "failed to create $dir. exiting...\n"; 

bạn có thể sử dụng một mô-đun nhưng sau đó bạn phải cài đặt nó trên mỗi máy chủ bạn đang đi đến cổng mã của bạn trên. Tôi thường thích sử dụng chức năng hệ thống cho một tác phẩm như mkdir vì đó là chi phí thấp hơn để nhập và gọi mô-đun khi tôi chỉ cần một lần để tạo thư mục.