Re^4: I'm stuck adding more named parameters to a subroutine since the new named parameters might have the same name as the current ones.

I decided to take it one step further along. :)

sub get_attributes {
  my ($options, $valid) = @_;
  my @attributes;
  for (@{$valid}) {
    my $value = $options->{$_};
    push @attributes, qq($_="$value") if $options->{$_};
  }
  return join(' ',('',@attributes));
}
[download]

Instead of joining them later, I just joined them in the subroutine.

Have a cookie and a very nice day!

Lady Aleena

Comment on Re^4: I'm stuck adding more named parameters to a subroutine since the new named parameters might have the same name as the current ones. Download Code