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;

回复此楼

» 猜你喜欢

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

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

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

返回列表