Kleine Anfänger Frage - #8695 (Perl/CGI)

topeg

2006-09-22 00:45

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Jedoch hatt er dann keine Arrays mehr, die er auslesen kann um daraus eine Tabelle (HTML schätze ich mal) zu machen. Sicher er kann es splitten doch warum erst zusammenfügen und dann wieder spliten. Auch die rekusive Variante von mir kann man kürzer schreiben, jedoch fand ich es nicht sinnvoll, da dann etwas an lesbarkeit und dokumentierbarkeit verloren gegangen wäre.
Aber hier mal die minimalistische Variante meinerseits:

Code: (dl )

sub variants {
  my $e=shift(@_);
  return @_ ? map { ( [lc($e),@{$_}], [uc($e),@{$_}] ) } variants(@_) : ([lc($e)],[uc($e)]);
}

kürzer gehts wohl nicht :-)\n\n