어떻게하면 다음과 같은 오류를 해결할 수 있습니까? "정의되지 않은 서브 루틴 & main :: resetCounters at at"? 서브 루틴은 프로토 타이핑되었지만 여전히 Perl은 불평합니다. 다음 코드는 내가 문제가되는 코드입니다 : #!/usr/bin/perl
use strict;
use warnings;
...
sub reportSt
객체를 인스턴스화하지 않고 클래스에서 프로토 타입 함수를 호출하려고합니다. 내 수업 MyClass의 예 : package MyClass;
use strict;
use warnings;
sub import{
my $class = shift;
my ($caller) = caller();
eval "sub ${caller}
이것은 내가 무엇을 가지고 :이 내가 달성하고 싶은 것입니다 use 5.14.0;
use strict;
use warnings;
sub my_func(&$) {
my $coderef = shift;
my %attribs = @_;
}
: my_func {
print 1;
} first_attrib => "1",sec
inbuilt 푸시 기능과 비슷한 기능을 가진 서브 루틴 mypush를 만들려고하는데 아래 코드가 제대로 작동하지 않습니다. 이 라인에서 @planets = ('mercury', 'venus', 'earth', 'mars');
myPush(@planets,"Test");
sub myPush (\@@) {
my $ref = sh