用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, "相对目录 ")；
