1 2 3 4 5 6 7 8 9 10 11 12 13 14
my %farben = ( rot => '#FF0000', FARBE_5 => '#801133', FARBE_1 => '#111211', ); while (my $line = <DATA>) { for my $f (keys %farben) { $line =~ s|<#$f#>|$farben{$f}|g } print $line; } __DATA__ body { color: <#FARBE_5#>; font-size=150% } p { color:<#FARBE_1#>}
2013-11-29T22:10:49 GwenDragonIn CSS kannst du keine Variablen definieren.
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
$farbe1="#deeef2;"; #oder halt aus ner datenbank holen, settinsdatei.. etc.
print <<"EOF";
BODY {
background-color: $farbe1
}
EOF
exit;