有一个困扰我好几天的问题终于解决了,然而我并没有感到非常高兴。
事情是这样的。
实验室导师交给我一个任务,他给了我一些代码,有java的程序代码、也有Perl的脚本语言……最终要干什么暂且不表,主要是要用到perl脚本生成的一些文件。
然后我就卡在生成文件上了。
首先说明,我对perl脚本语言不熟,真正的刚刚接触。我熟悉的脚本语言是shell……对了还没说,我在实验室的操作系统是linux的。
总之想要得到正确生成的文件,需要把perl文件中的路径相关变量进行改变,改成我现在使用的。改好之后,我不管怎么运行,它就是报错!
然后我一直调试编辑,甚至把文件中的指令拿出来一段段的实现。也能够生成几个文件,但更多的还是不行。
于是今天实验室的一个对perl有些了解的同学帮我看看哪里的问题。
调试程序总是要标记、判断出问题的位置,我们这样做了有一个小时多吧。
后来他提出是不是权限问题。
我们查看中间涉及到的所有目录和文件,并把所有的实验室组改成了我的个人组,结果说不行还是不行。
根本没有任何文件生成!
然而如果在脚本文件的开头随便生成一个文件,还是能够生成的。这说明问题是处在中间,开始正式生成文件之前。
于是我们开始逐行的读代码。
突然,同学分析到一段代码问我一个指令是什么意思,我看到之后就有些发懵。那段代码是这样的:
#!/usr/bin/perl
#... ...
`/bin/mkdir -p $work_dir`;
<span style="font-size:18px;color:#ff0000;"><strong>chdir</strong></span> "$work_dir";
`/bin/rm -f $work_dir/*;
#... ...
我想我大概明白哪里出问题了。
chdir是一个类似于“cd”功能的指令,用来改变当前工作路径……也就是说,所有的文件生成的位置是“$work_dir”目录下,而不是最初的目录了。
意思是说,一直以来我都找错了文件所在的目录!
为了验证这样的结论,我找到了相关目录,发现——果然,所有生成的文件都在那里。
所以要注意细节细节细节!
就当耽误的时间是买个教训吧。