Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
use File::Basename;
my $script_dirname = dirname(__FILE__);
print "dirname: $script_dirname\n";
  2. or download this
    C:\Data\scripting\misc>path_test.pl
dirname: C:\Data\scripting\misc
C:\Data\scripting\misc>
  3. or download this
    C:\Data\scripting\misc>perl path_test.pl
dirname: .
C:\Data\scripting\misc>