File Perl

  1. Home
  2. Perl
  3. File
  4. Create dir with mkdir and remove dir with rmdir
#! /usr/local/bin/perl
use Cwd;
$dir = cwd;
print "dir=> $dir\n";
mkdir ('D:\\newdir',000) || warn "mkdir failed $!";
mkdir ('newdir2',000) || warn "mkdir failed $!";
rmdir ('newdir');
print "\n\n";