Принудительно создать папку, если ее не существует

Question

Как заставить папку сделать в моем коде ниже, строка 31, если она еще не существует. Я пробовал команду mkdir, но не могу заставить ее работать. Я также попробовал >> вместо одного. Это линия, я говорю: «открыть мой $ Ф.Х., '>', "Спросите/Parsed/Html/$"

use lib '/Users/lialin/perl5/lib/perl5'; 
use strict; use warnings; 
use feature 'say'; 
use File::Slurp 'slurp'; # makes it easy to read files. 
use Mojo; 
use Mojo::UserAgent; 
use URI; 

#my $html_file = "Ask/Agilent_Technologies_ask.html"; # take file from directory 
#my $html_file = shift @ARGV; # take file from command lin 

my $calls_dir = "Ask/"; 
opendir(my $search_dir, $calls_dir) or die "$!\n"; 
my @html_files = grep /\.html$/i, readdir $search_dir; 
closedir $search_dir; 
#print "Got ", scalar @files, " files\n"; 

#my %seen =(); 
foreach my $html_files (@html_files) { 
my %seen =(); 
    my $current_file = $calls_dir . $html_files; 
open my $FILE, '<', $current_file or die "$html_files: $!\n"; 

my $dom = Mojo::DOM->new(scalar slurp $calls_dir .$html_files); 
print $calls_dir .$html_files ; 

#for my $csshref ($dom->find('a[href]')->attr('href')->each) { 
#for my $link ($dom->find('a[href]')->attr('href')->each) { 
# print $1; 
#say $1 #if $link->attr('href') =~ m{^https?://(.+?)/index\.php}s; 
open my $fh, '>', "Ask/Parsed/Html/${html_files}.result.txt" or die $!; 
for my $csshref ($dom->find('a[href]')->attr('href')->each) { 
my $cssurl = URI->new($csshref)->abs($calls_dir .$html_files); 

#open my $fh, '>', "Ask/${html_files}.result.txt" or die $!; 
$fh->print("$html_files\n"); 
$fh->print("$cssurl\n"); 
#$fh->print("\t"."$_\n"); 
#print "$cssurl\n"; 
#print $file."\t"."$_\n"; 

}} 

Answer 1

Я предложил бы использовать File::Path, специально make_path()

.

Вы также можете написать рекурсивную функцию с помощью mkdir, но мне кажется, что это не стоит проблем. Этот модуль работал отлично для меня.