Get current dir : Cwd « File « Perl






Get current dir

    

#! /usr/local/bin/perl
use Cwd;
$dir = cwd;
print "dir=> $dir\n";
chdir ('D:\\mydir');
$dir = cwd;

   
    
    
    
  








Related examples in the same category