Perl make a new directory

use strict;
use warnings;

sub main {
    my $directory = "temp";
    
    unless(mkdir $directory) {
        die "Unable to create $directory\n";
    }
}

main();

Source: caveofprogramming.com

Perl make a new directory

use strict;
use warnings;

sub main {
    my $directory = "temp";
    
    unless(-e $directory or mkdir $directory) {
        die "Unable to create $directory\n";
    }
}

main();

Source: caveofprogramming.com

Similar codes

0 vote399 views1 answer
Perl mongodb conf location
Perl
0 vote388 views3 answers
Perl list files and folders in a directory
Perl
0 vote405 views1 answer
Read a file in perl
Perl
2 votes410 views1 answer
Perl lowercase
Perl
0 vote233 views1 answer
Perl format decimal 2 places not rounding
Perl
0 vote428 views1 answer
Perl sprintf YYYYMMDD sample
Perl
0 vote386 views1 answer
Perl leading zeros formatting sprintf
Perl
0 vote392 views1 answer
Perl mechanize infinite scroll
Perl
0 vote424 views1 answer
Perl running mechanize through tor
Perl
1 vote409 views2 answers
Perl array
Perl