Почему переменная параметра пуста?

Question

У меня есть класс контроллера Perl, в котором я делаю:

sub func1 {
    my $f1    = Model::myModel->new();
    my $param = "test";
    $f1->func2($param);
}

Класс модели:

sub new {
    my ($class, %arg) = @_;
    my $self = bless {}, $class;
    return $self;
}

sub func2 {
    my ($self, $param) = shift(@_);
    warn $param;
}

$param пусто.Какую ошибку я делаю?

Answer 1

shift только сдвигает первое значение из @_.perldoc -f shift расскажет вам больше о том, как работает сдвиг.

Вы хотите:

my( $self, $param ) = @_;

Вы правильно поняли new().Не уверен, что случилось;)

На самом деле, к вашему сведению, ваш new() выдаст предупреждение:

Odd number of elements in hash assignment

Если вы назовете это как $package->new( 'a' ); Возможно, вы захотите поймать в ловушкучто-то вроде:

use Carp qw( croak confess );
sub new {
    my $class = shift;
    confess "$class requires an even number of args" if( @_ & 1 );
    my %args = @_;
    # ...
}

Или используя любой используемый вами механизм перехвата исключений.

Answer 2

Попробуйте:

sub func2 {
  my ( $self, $param ) = @_;
  warn $param;
}

или

sub func2 {
  my $self  = shift @_;
  my $param = shift @_;
  warn $param;
}