| 查看: 462 | 回复: 0 | ||
[求助]
perl编程
|
|
#!/usr/bin/perl use strict; use warnings; use vars qw #open the multiframe trajectory structure file or die my $doc = $Documents{"abc.xtd"}; if (!$doc) {die "no document";} my $trajectory = $doc->Trajectory; if ($trajectory->NumFrames>1) { print "Found ".$trajectory->NumFrames." frames in the trajectory "; # Open new xmol trajectory file my $xmolFile=Documents->New("trj.txt"  ;#get atoms in the structure my $Beads = $doc->DisplayRange->Beads; my $NBeads=@$Beads; # loops over the frames my $framebegin=1; my $frameend=$trajectory->NumFrames; # my $frameend=10; for (my $frame=$framebegin; $frame<=$frameend; ++$frame){ $trajectory->CurrentFrame = $frame; #write header xyz $xmolFile->Append(sprintf "%i ", $NBeads); $xmolFile->Append(sprintf "%s %i ", "Frame",$frame); foreach my $Bead (@$Beads) { # write atom symbol and x-y-z- coordinates $xmolFile->Append(sprintf "%s %f %f %f ",$Bead->Name, $Bead->X, $Bead->Y, $Bead->Z); } } #close trajectory file $xmolFile->Close; } else { print "The " . $doc->Name . " is not a multiframe trajectory file "; 运行以上程序出现：Global symbol "%Documents" requires explicit package name at C:\Users\Administrator\AppData\Local\ActiveState\KomodoIDE\8.0\samples\perl_tutorials\abl.pl line 5. Execution of C:\Users\Administrator\AppData\Local\ActiveState\KomodoIDE\8.0\samples\perl_tutorials\abl.pl aborted due to compilation errors. 怎么回事？该怎么改？？ |
回复此楼» 猜你喜欢
朋友圈看到的
已经有5人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有110人回复
-
明天放榜？
已经有5人回复
-
时间戳变了，能看出什么问题？
已经有11人回复
-
重要消息，中午系统在维护
已经有10人回复
-
两姐妹，一个辛辛苦苦30岁工作当大学教师，另一个23岁就工作当开车教练
已经有7人回复
-
投稿咨询
已经有6人回复
-
时间戳又变了8-15
已经有26人回复
-
今天维护系统维护 祝所有人 高中
已经有9人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有16人回复
