samples/perl_path.pl

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use blib;
   7
   8 use Cwd 'abs_path';
   9
  10 my $path;
  11
  12 if ($^O eq 'darwin') {
  13  require Mac::NSGetExecutablePath;
  14  $path = Mac::NSGetExecutablePath::NSGetExecutablePath();
  15 } else {
  16  $path = $^X;
  17 }
  18
  19 print abs_path($path), "\n";