perl - 'shift' 对处理 Perl 子程序参数是否有害？

Question

我经常使用shift解包函数参数:

sub my_sub {
    my $self = shift;
    my $params = shift;
    ....
}

但是，我的许多同事都在宣扬 shift实际上是邪恶的。你能解释一下为什么我更喜欢

sub my_sub {
    my ($self, $params) = @_;
    ....
}

至shift ?

Answer 1

它不是邪恶的，它是一种品味之类的东西。您会经常看到一起使用的样式:

sub new {
    my $class = shift;
    my %self = @_;
    return bless \%self, $class;
}

我倾向于使用 shift当有一个论点或当我想以不同于其他论点的方式对待前几个论点时。