Lesbarkeit von Code - #72156 (Allgemeines zu Perl)

bloonix

2006-12-01 18:05

User since
2005-12-17
1615 Artikel
HausmeisterIn

Hallo Community,

hin und wieder mache ich mir nicht nur Gedanken um guten Code,
sondern auch um schönen. Was haltet ihr von

Code: (dl )

sub struct {
   return
      ref($_[0])
         ? ref($_[0]) eq 'HASH'
            ? $_[0]
            : croak "not a hash ref"
         : @_ & 1
            ? croak "odd number of elements in hash"
            : {@_};
}

oder ist dieses Beispiel viel lesbarer?

Code: (dl )

sub struct {
   if (ref($_[0])) {
      if (ref($_[0]) eq 'HASH') {
         return $_[0];
      } else {
         croak "not a hash ref";
      }
   } elsif (@_ & 1) {
      croak "odd number of elements in hash";
   } else {
      return {@_};
   }
}

Was würdet ihr bevorzugen? :)

Gruss,
opi\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.