Help for this page

Select Code to Download


  1. or download this
    use v5.12;
use warnings;
use Cwd qw(abs_path);

say 'abs_path($0): ', abs_path($0);
  2. or download this
    PS D:\transfer_D\d_temp> perl .\temp\tst.pl
abs_path($0): D:/transfer_D/d_temp/temp/tst.pl
PS D:\transfer_D\d_temp>