2010-02-05T17:34:10 pq

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 )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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)); }

Möchte mal sehen, was bei längeren Text außerhalb von Kodeblöcken passiert. Bin wirklich gespannt.

Zwischenresultat: In der Vorschau haben die Kodeblöcke im Zitat keine Scrollbalken mehr, der Arbeitsbereich ist nach rechts stark aufgebläht (weit über den Bedarf meines Textes hinaus), neuer Scrollbalken unter der Vorschau.
Last edited: 2013-03-23 17:42:47 +0100 (CET)