困扰我一天了：linux下，在perl中调用find命令的问题

lion7beckham

【描述】用Called.pl搜索上上级目录的一个文件：td710_lov.mak
Called.pl的路径：.../AAA/BBB/CCC/Called.pl
td710_lov.mak的路径：.../AAA/td710_lov.mak

在Called.pl中有一条语句：@paths = `find ../../AAA  -name td710_lov.mak`，用于在AAA目录下查找td710_lov.mak并返回其路径。
发现若以“perl Called.pl”独立执行脚本时，可以返回正确的@paths。

【问题】
由于是自动化编译，所以Called.pl是被自动调用的（可能是shell、perl、甚至make文件中被调用）。此时就出错了！错误信息：
find：·../../AAA'：没有那个文件或目录。
【原因分析】
是否自动执行时就无法识别出“..”了？
请教大家：如何解决该问题，或者提供下思路。
非常感谢！

grshrd49

我猜想因该是这样的
当用户来运行perl脚本的时候，当然了 你这里是Called.pl这个文件，脚本当前的工作目录就是该文件所在的目录
如果你用其他程序来调用perl脚本的时候 工作目录就不是被调脚本本身了，所以不能设置相对路径。

是不是这个道理？求大牛深入分析

linguangan

应该是相对路径问题，尝试用绝对路径看看。

rubyish

grshrd49 发表于 2013-07-17 13:46
我猜想因该是这样的
当用户来运行perl脚本的时候，当然了 你这里是Called.pl这个文件，脚本当前的工作目录 ...

分析深入，感谢大牛 {:3_188:}

lion7beckham

回复 2# grshrd49
确实如你所说！
我使用“use Cwd;$current_dir =getcwd;”的方法打印出的当前目录，发现当自动执行时确实跑到另一个目录。
解决问题的方法当然就太简单了。 嘿嘿。
非常感谢你的提示～～


   

lion7beckham

感谢各位Perler的给力支持~~

lion7beckham

回复 4# rubyish
问题解决啦，嘿嘿~~

   

rubyish

感谢大牛，解决问题~~