絶対パスへ変換した相対パスをPerlモジュールのCwd::abs_pathで生成
PerlモジュールのCwdを使用して、abs_path関数で相対パスを絶対パスへ変換して出力しました。
#!/opt/local/bin/perl
use strict;
use warnings;
use utf8;
use Cwd qw(abs_path);
print "Content-type: text/plan; charset=utf-8\n\n";
print abs_path("../sample.jpg");
exit;
/Users/UserName/Documents/workspace/sample.jpg
サンプルコードと出力結果です。絶対パスへ変換した相対パスがabs_path
関数で出力されました。実際に存在しないパスが2階層続く場合、abs_path
関数はundefを返します。