Perl についての質問です。

Question

282

70pt

プログラムがおいてあるフォルダーの上のフォルダー名を調べるためにはどうしたらいいでしょうか？

わかりにくいと思いましたので図を添付致します。

環境は、
Windows XP SP2
Perl ver 5.8.8
Apache HTTP Server 2.2.3
です。

回答の条件

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

b-wind 2007/04/12 12:04:53

＞PERLでは環境変数として、現在実行しているスクリプトの絶対パスが渡されます。
CGI ではの間違いでは？

[Software] Perlスクリプトでスクリプトファイルの絶対パスを知る幾霜 2007-06-13 00:35:07

use File::Spec;my $abs_path = File::Spec->rel2abs($0);print("$abs_path¥n");　これはPARで固めた実行ファイルでも、それをPATHの通った場所に置いても動作する。はてな::Question::1176343954参照。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません

studioes · Answer 1 · 2007-04-12T11:32:16+09:00

　PERLでは環境変数として、現在実行しているスクリプトの絶対パスが渡されます。

$ENV{'SCRIPT_FILENAME'}

　図の場合は、ドライブ:/boss_folder/main_folder/main.cgiが戻るわけです。

　これを正規表現で処理すればOK。

b-wind · Answer 2 · 2007-04-12T11:37:25+09:00

use File::Spec;

my $abs = File::Spec->rel2abs($0);
my @dirs = File::Spec->splitdir($abs);
print $dirs[-3];

回答（2件）