Perlでのカレントパスの求め方(for WINDOWS)
WINDOWS系でカレントパスを求める。
my $current_path = $0; $current_path =~ s/\\[^\\]*$//; print "---$current_path---\n";
尚、$0には、実行中のプログラムのパス(プログラム名含む)が格納されている。
WINDOWS系でカレントパスを求める。
my $current_path = $0; $current_path =~ s/\\[^\\]*$//; print "---$current_path---\n";
尚、$0には、実行中のプログラムのパス(プログラム名含む)が格納されている。