&lt;新手上路&gt;perl中路径问题

ant_tree

UID: 16473
帖子: 22
积分: 50
在线时间: 10 分钟

1^# ant_tree 发表于 2008-01-11 13:44

&lt;新手上路&gt;perl中路径问题

$TCbin = `pwd`;
现在想得到上一层目录，我用如下语句：
$TCRoot = "$TCbin/.."或者
system ("$TCRoot = cd $TCbin/..");或者
$TCRoot = `$TCbin/..`;
都不能返回到上一层目录
不知哪位大侠可以赐教！

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-01-11 13:57

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

ant_tree

UID: 16473
帖子: 22
积分: 50
在线时间: 10 分钟

3^# ant_tree 发表于 2008-01-11 14:18

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

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

上面两中方式在SHELL下是可以的，但在PERL文件里就报上面的错误。
还有一个问题，如果是返回4层呢？

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

4^# ly5066113 发表于 2008-01-11 14:21

QUOTE:

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

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

上面两 ...

sorry，没做测试。
$TCRoot = `dirname \$PWD`
或
$TCRoot = `echo \${PWD%/*}`

转义一下就可以了。
返回4层是什么意思？

ant_tree

UID: 16473
帖子: 22
积分: 50
在线时间: 10 分钟

5^# ant_tree 发表于 2008-01-11 14:25

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

ant_tree

UID: 16473
帖子: 22
积分: 50
在线时间: 10 分钟

6^# ant_tree 发表于 2008-01-11 14:50

还有哪位大侠帮忙解决一下啊？急...

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

7^# perljoker 发表于 2008-01-11 15:14

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

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

8^# 放驴娃发表于 2008-01-11 15:42

perldoc File::Spec

&amp;lt;新手上路&amp;gt;perl中路径问题

&amp;lt;新手上路&amp;gt;perl中路径问题

<新手上路>perl中路径问题

<新手上路>perl中路径问题