Vertikale Spaltenbeschriftung für table (HTML) (gelöst) - #140284 (Allgemeines zu Perl)

MatthiasW

2010-08-03 13:34

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Man könnte dazu auch CPAN:

Graphics::ColorNames bzw. CPAN:

Graphics::ColorNames::WWW hernehmen:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
no warnings 'qw';
use Graphics::ColorNames 'hex2tuple';

tie my %colors, 'Graphics::ColorNames', 'WWW';

for my $color (qw(lightgreen #ff0000 grey #123456 #foobar blue unknown)) {
    if ( defined $colors{$color} ) {
        my @rgb = hex2tuple $colors{$color};
        print "$color => @rgb\n";
    }
    else { print "unknown color '$color'\n" }
} # for

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'