不明白为什么有问题

ljs53

代码如下
$path = system("cleartool pwd");
$path = substr($ver1,0,index($ver1,"\r"));
print $path;
my $findfilelist = "cleartool find " . $path . " -branch " . "\"brtype(" . $1 . ")\" -print > C:/find_modify.txt";
print $findfilelist;

现在有这样一个问题，print $path 可以打印出当前的路径
但是放在$findfilelist这个里面就没有任何值 也就说最总显示的字符串没有当前的路径
变成了"cleartool find  -branch "brtype($1 )" -print > C:/find_modify.txt" 这样一个字符串  
我有点不明白了！

yashiro_lj

我猜print $path其实也没有打印出任何东西，楼主看到的输出路径有可能是执行system时输出的，建议print "----------\n$path\n----------"看看

BTW，system返回的结果是所调用命令的执行结果（成功或失败），而不是所调用命令执行过程中的输出，楼主如果需要获取所调用命令的执行输出，请使用``

[ 本帖最后由 yashiro_lj 于 2009-7-30 10:21 编辑 ]

ljs53

的确是 那现在怎么办？？

Perl_Er

cleartool find " . $path . " -branch " . "\"brtype(" . $1 . ")\" -print > C:/find_modify.txt是你要执行的命令？
你得用``(backtick)

apile

my @path =`pwd`;
就可以取得目前目录了...