Mega Code Archive

 

Categories / Perl / File

 

Make a folder (directory)

#!/usr/bin/perl -w use strict; print "please enter a directory name: "; chomp(my $dir = <STDIN>); mkdir $dir, 0777 or die "failed to make directory $dir: $!\n"; print "made the directory $dir ok!\n";