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.5.5.1.O.54,科目齐全,可+急已经有17人回复
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急已经有10人回复
售SCI文章，我:8O.5.5.1O.54,科目全,可十急已经有22人回复
越来越担心硕士毕业后没有竞争力了已经有14人回复
论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章已经有3人回复
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请已经有3人回复
闲聊已经有6人回复
申博求助已经有4人回复

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

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

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

返回列表