用perl程序 如何取得上级目录的路径
如我现在的路径     /home/path/prg
我想得到/home/path
别告诉我用cd   ..
我需要在程序中得到   多谢  
请教了

------解决方案--------------------
$pwd = `pwd`;
chomp( $pwd );

这样就得到了当前目录，如果你需要的是打印出上级目录，那大概需要字符串操。

如果你仅仅只是想在上级目录搜索或创建东西，可以

$pwdparent = $pwd. '/../ '

通过增加../得到上级目录
------解决方案--------------------
#!/usr/bin/perl -w
use strict;

my $homepath = $ENV{HOME};

my $wantpath = join( ' ', $homepath, "相对目录 ")；