|
#!perl
use strict;
use Getopt::Long;
use MaterialsScript qw(:all);
Tools->PolymerBuilder->RandomCopolymer->ClearRepeatUnits;
Tools->PolymerBuilder->RandomCopolymer->AddRepeatUnit($repeat1);
Tools->PolymerBuilder->RandomCopolymer->AddRepeatUnit($repeat2);
my $rcp = Tools->PolymerBuilder->RandomCopolymer->Build($randomCopolymerDoc,
10,$endUnit,$endUnit);
运行help里面的这段程序,为啥会出现错误?
Global symbol "$repeat1" requires explicit package name (did you forget to declare "my $repeat1"?) at -e line 8.
Global symbol "$repeat2" requires explicit package name (did you forget to declare "my $repeat2"?) at -e line 9.
Global symbol "$randomCopolymerDoc" requires explicit package name (did you forget to declare "my $randomCopolymerDoc"?) at -e line 10.
Global symbol "$endUnit" requires explicit package name (did you forget to declare "my $endUnit"?) at -e line 11.
Global symbol "$endUnit" requires explicit package name (did you forget to declare "my $endUnit"?) at -e line 11.
-e had compilation errors.
不太懂perl的规则,请高手帮忙看一看,多谢了。。。
|
|