File Perl

  1. Home
  2. Perl
  3. File
  4. Change dir with chdir
#! /usr/local/bin/perl
use Cwd;
$dir = cwd;
print "dir=> $dir\n";
chdir ('D:\\mydir');
$dir = cwd;