<新手上路>perl中路徑問題

ant_tree

$TCbin = `pwd`;
現(xiàn)在想得到上一層目錄，我用如下語句：
$TCRoot = "$TCbin/.."或者
system ("$TCRoot = cd $TCbin/..");或者
$TCRoot = `$TCbin/..`;
都不能返回到上一層目錄
不知哪位大俠可以賜教！

ly5066113

$TCRoot = `dirname $PWD`
或
$TCRoot = `echo ${PWD%/*}`

ant_tree

$TCRoot = `dirname $PWD`
或
$TCRoot = `echo ${PWD%/*}`

采用第一種方式，返回：dirname: missing operand
采用第二種方式，返回：Search pattern not terminated at ./directory.pl line 11.

上面兩中方式在SHELL下是可以的，但在PERL文件里就報(bào)上面的錯(cuò)誤。
還有一個(gè)問題，如果是返回4層呢？

ly5066113

原帖由 ant_tree 于 2008-1-11 14:18 發(fā)表
$TCRoot = `dirname $PWD`
或
$TCRoot = `echo ${PWD%/*}`

采用第一種方式，返回：dirname: missing operand
采用第二種方式，返回：Search pattern not terminated at ./directory.pl line 11.

上面兩 ...

sorry，沒做測(cè)試。
$TCRoot = `dirname \$PWD`
或
$TCRoot = `echo \${PWD%/*}`

轉(zhuǎn)義一下就可以了。
返回4層是什么意思？

ant_tree

比如：
/root/perl/proc/network/testcase/src
我想返回到/root/perl下面

ant_tree

還有哪位大俠幫忙解決一下�。考�...

perljoker

循環(huán)4次不行么？或者用正則匹配也可以的吧
s/(\/\w+){4}$//;

放驢娃

perldoc File::Spec