#!/usr/local/bin/perl
#┌─────────────────────────────────
#│ FullPath Checker v1.4 (2003/09/22)
#│ Copyright (c) KentWeb
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#│ ---
#│ Special Thanks:
#│ HiRO-さん、てっちゃん
#└─────────────────────────────────
$ver = 'FullPath Checker v1.4';
#┌─────────────────────────────────
#│ [注意事項]
#│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した
#│ いかなる損害に対して作者は一切の責任を負いません。
#│ 2. 設置に関する質問はサポート掲示板にお願いいたします。
#│ 直接メールによる質問は一切お受けいたしておりません。
#└─────────────────────────────────
# 第１チェック
eval{ $path1 = `pwd`; };
if ($@ || !$path1) { $path1 = 'unknown'; }
# 第２チェック
if ($0 =~ /^(.*[\\\/])/) { $path2 = $1; }
else { $path2 = 'unknown'; }
# 第３チェック：スクリプトまでのフルパス
$path3 = $ENV{'SCRIPT_FILENAME'};
$path3 ||= 'unknown';
print "Content-type: text/html\n\n";
print <<"EOM";
$ver
この「ディレクトリ」のフルパスチェックの結果は以下のとおりです。
- 「unknown」と出る場合には取得に失敗した場合です -
- 第1チェック
- $path1
- 第2チェック
- $path2
- 第3チェック：スクリプトまでのフルパス
- $path3
EOM
exit;
__END__ テレワークならECナビ Yahoo 楽天 
LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券 海外旅行保険が無料！ 海外ホテル