Board Tests - Thread code - #739 - Perl-community.de Testing

2010-02-05 18:34

User since
2009-03-02
341 Artikel
Admin

user image

1 zeile perl:

Code (perl): (dl )

lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala

2 zeilen code:

Code: (dl )

1
2

1 lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala
2 lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala lalala

perl-code:

Code (perl): (dl )

use strict;
use warnings;

my %colors;

while(<DATA>)
{
  next unless($_=~/^\s*(\w+)\s*=\s*(.+)\s*$/);
  $colors{lc($1)}=$2;
}

my $name=shift(@ARGV);

if($name && $colors{lc($name)})
{ print $colors{lc($name)}."\n"; }
else
{ print "$_ = $colors{$_}\n" for(sort keys(%colors)); }

Last edited: 2011-06-19 15:46:39 +0200 (CEST)

insert sig here