1、Perl脚本
use File::Spec;
my $path_curf = File::Spec->rel2abs(__FILE__);
my ($vol, $dirs, $file) = File::Spec->splitpath($path_curf);
2、shell脚本
#! /bin/sh
filepath=$(cd "$(dirname "$0")"; pwd)
1、Perl脚本
use File::Spec;
my $path_curf = File::Spec->rel2abs(__FILE__);
my ($vol, $dirs, $file) = File::Spec->splitpath($path_curf);
2、shell脚本
#! /bin/sh
filepath=$(cd "$(dirname "$0")"; pwd)