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

2011-06-19 16:04

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

2 zeilen code:

Code: (dl )

1
2

lalala lalala lalala 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"; }

insert sig here