当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 11 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : perl程序初级问题
帖子发表于 : 2009-09-21 10:33 

注册: 2009-07-13 16:23
帖子: 213
送出感谢: 0 次
接收感谢: 0 次
我的程序中有一段语言如下。
代码:
chdir($protein_dir);
$ret = system "autogrid4 -p $runtime_gpf -l $protein_glg 2>> $log_file 1>> $log_file";


运行到这里的时候总是出错,显示sh: cannot create sv_nsp/protein/protein_maps.log: Directory nonexistent,事实上这个路径确实没有错。请问高手问题出在哪里?(autogrid4是个可执行命令,-p是输入参数,-l是输出运行结果,log_file就是protein_maps.log)


页首
 用户资料  
 
2 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2009-09-21 10:53 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
这和perl无关吧。
确定变量的路径有效啊。你这是相对路径,提示目录不存在了都。


_________________
● 鸣学


页首
 用户资料  
 
3 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2009-09-21 11:09 

注册: 2009-07-13 16:23
帖子: 213
送出感谢: 0 次
接收感谢: 0 次
路径绝对没有错,事实上这个protein_map.log在之前已经生成并存在了。我不懂perl,我觉得是不是因为proein_map.log存在了,而不能creat?
是不是应当改下语法,改成将生成的文本加入到该文件中。


页首
 用户资料  
 
4 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2009-09-21 15:44 

注册: 2009-07-13 16:23
帖子: 213
送出感谢: 0 次
接收感谢: 0 次
或者是不是在后面这几句有问题:
代码:
chdir($protein_dir);
$ret = system "autogrid4 -p $runtime_gpf -l $protein_glg 2>> $log_file 1>> $log_file";
if ($ret)
{
   $err = 6;               # err code 6: error from autogrid4
   goto EXIT;
}
system "tar -czf protein_files.tar.gz $tar_files $protein_files";

open(LOG_FH, ">> $log_file");
$end_time = time();
print LOG_FH "autogrid4 return value $ret\n";
print LOG_FH "\nProgram completed: ", scalar localtime($end_time), "\n";
close(LOG_FH);


页首
 用户资料  
 
5 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2009-09-21 21:27 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
找地方?多print就是啊。简单的手段最好了。


_________________
● 鸣学


页首
 用户资料  
 
6 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2009-11-20 16:05 

注册: 2009-11-01 11:06
帖子: 28
送出感谢: 0 次
接收感谢: 0 次
perl -d

看看停在哪一句就知道了。


页首
 用户资料  
 
7 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2009-11-20 19:00 
头像

注册: 2009-11-17 12:29
帖子: 883
送出感谢: 0 次
接收感谢: 0 次
system 那是 调用shell把引号中的字符串当命令执行。。
所以LZ的问题可能是 没有权限访问目标。。
用sudo执行这个perl脚本会有用么。。
或许得在system的那串东西里加上sudo...

顺便一提,在管理脚本中混入system("")是有严重安全问题的


页首
 用户资料  
 
8 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2009-12-16 20:50 

注册: 2008-02-20 11:46
帖子: 84
送出感谢: 0 次
接收感谢: 0 次
不用sysytem调用··直接用``


页首
 用户资料  
 
9 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2010-01-20 13:51 
头像

注册: 2007-05-08 16:26
帖子: 2058
地址: 火星内核某分子内某原子核内
系统: arch
送出感谢: 20
接收感谢: 6
用system 和 `` 都不安全,在使用前要先让 $SAFE = 2 .


_________________
笔记本 :
F208S : gentoo
A460P i3G D6 : UBUNTU + WIN7
UN43D1 : UBUNTU + WIN7
1000人超级QQ群 LINUX + WIN : 31465544 或 18210387


页首
 用户资料  
 
10 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2010-01-20 17:49 

注册: 2008-02-20 11:46
帖子: 84
送出感谢: 0 次
接收感谢: 0 次
用system 还不如直接用``好···懒得敲那几个字了···

弱弱的问一下,$SAFE = 2 是什么?为什么要设置!?


页首
 用户资料  
 
11 楼 
 文章标题 : Re: perl程序初级问题
帖子发表于 : 2010-02-20 13:08 

注册: 2008-10-31 22:12
帖子: 6546
系统: 践兔
送出感谢: 18
接收感谢: 25
目录不存在就mkdir它啊
代码:
mkdir -pv sv_nsp/protein


_________________
代码:
] ls -ld //


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 11 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译