in reply to push to a referenced array

And if you want a "normal" variant: 
sub ref_push {
    if ( !$_[0] ) {
        $_[0] = [ @_[1..$#_] ];
    } else {
        push @{$_[0]}, @_[1..$#_];
    }
}

[download]

Replies are listed 'Best First'.
Re^2: push to a referenced array
by Tux (Canon) on Sep 29, 2008 at 06:46 UTC

    Not safe enough:

    sub ref_push
{
    if (ref $_[0] eq "ARRAY") {
        push @{$_[0]}, @_[1..$#_];
        }
    elsif (ref $_[0]) {
        warn "Cannot push onto non-ARRAY ref";
        }
    elsif (!defined $_[0]) {
        $_[0] = [ @_[1..$#_] ];
    else {
        warn "Cannot push: Variable already defined as something else"
+;
        }
    } # ref_push

    [download]

    Enjoy, Have FUN! H.Merijn
[reply]
[d/l]

In Section Cool Uses for Perl