24小时热门版块排行榜

返回列表

虫虫905

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 48
红花: 1
帖子: 10
在线: 4.3小时
虫号: 2068362
注册: 2012-10-17
专业: 生物信息学

[求助] perl里的File::Copy模块求助

我写了一段程序，意思是，/home/liya/APOLLO/models下查找名称与$protein_dir一致的目录；
找到后，把该目录下名称与$model_name一致的pdb文件复制到指定目录$targetdir下。
终端提示的错误是
copy failed:是一个目录 at /home/liya/APOLLO/extract_wrong.pl line 29.
这是为什么呀？？？为这个折腾两天了也没搞定啊！

opendir DIR,"/home/liya/APOLLO/models" or die "cannot open model_dir:$!";
      foreach my $file(readdir DIR){
next if $file ~~ $protein_dir;
if (-d $file){
      opendir SUBDIR,$file or die "cannot open $protein_dir:$!";
      foreach my $subfile (readdir SUBDIR){
26 next if $subfile ~~ $model_name;
27 if (-e $subfile){
28       chdir "/home/liya/AOPLLO/models/$file";
29       copy ($subfile,$targetdir."/".$subfile) or die "copy failed:$!";
30 }
      }
      close SUBDIR;
}
      }
      close DIR;

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急已经有4人回复
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急已经有3人回复
浙江师范大学是怎么坑我的已经有15人回复
浙江师范大学是怎么坑我的已经有4人回复
求教各位大神：2026教育部人文社科青年基金项目何时公示呀？已经有6人回复
面上有专家说实验设备不是我们单位的已经有8人回复
科研求助已经有4人回复

1楼 2012-10-23 10:42:02

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主虫虫905 的主题更新

返回列表