Experimental push on scalar is now forbidden (gelöst) - #195288 (Allgemeines zu Perl)

rosti

2023-08-21 15:09

User since
2011-03-19
3237 Artikel
BenutzerIn

Code (perl): (dl )

    sub pushOnRef {
        # Geht das nicht besser?
        my $self = shift;
        my $ref = shift;
        my $val = shift;
        my @temp = @{$ref};
        push(@temp, $val);
        $ref = \@temp;
        return $ref;
    }

Ja, geht. Bedenke daß manchmal auch mehrere Werte zu pushen sind. Also nimm einfach @_

Code (perl): (dl )

sub push{
   my $self = shift;
   my $ref  = shift;
   push @$ref, @_;    # fertig
}