Re^2: Basic Coding Tips: Parsimonious Parameterization

[BUU]

in reply to Re: Basic Coding Tips: Parsimonious Parameterization
in thread Basic Coding Tips: Parsimonious Parameterization

Well, if you want a "WTF", I found this gem on cpan a while ago:

#merges the elements of two or more arrays together so that the values
+ of one 
# are appended to the end of the previous one
sub array_merge{
    my(@array1, @array2) = @_;
    foreach my $element (@array2){
        @array1 = (@array1, $element);
    }#foreach
    return @array1;
}#array_merge

[Tanktalus]

I have to admit - he couldn't do it much faster than that and still have a subroutine...

(Anyone else notice that @array2 will always be empty since @array1 will get all of @_? Thus, the foreach will always be skipped!)

[wazoox]

Yes :) But it'd works this way:

sub array_merge(\@\@){
    my($array1, $array2) = @_;
    foreach my $element (@$array2){
        @$array1 = (@$array1, $element);
}#foreach
    return @$array1;
}#array_merge

my @t=array_merge(@liste1, @liste2);

[bart]

my @t = (@liste1, @liste2);

works too. No need to reinvent what the core language already provides in a simple way.