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

[thread]127[/thread]

code

Leser: 4

Articles: hide open all | hide show old branches

+11 replies

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

Gast GwenDragon@offline

2010-08-03 19:53

Code (perl): (dl )

#!/usr/bin/perl

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

__DATA__
Black=#000000
Navy=#000080
DarkBlue=#00008B
MediumBlue=#0000CD
Blue=#0000FF
DarkGreen=#006400
Green=#008000
Teal=#008080
DarkCyan=#008B8B
DeepSkyBlue=#00BFFF
DarkTurquoise=#00CED1
MediumSpringGreen=#00FA9A
Lime=#00FF00
SpringGreen=#00FF7F
Aqua=#00FFFF
Cyan=#00FFFF
MidnightBlue=#191970
DodgerBlue=#1E90FF
LightSeaGreen=#20B2AA
ForestGreen=#228B22
SeaGreen=#2E8B57
DarkSlateGray=#2F4F4F
LimeGreen=#32CD32
MediumSeaGreen=#3CB371
Turquoise=#40E0D0
RoyalBlue=#4169E1
SteelBlue=#4682B4
DarkSlateBlue=#483D8B
MediumTurquoise=#48D1CC
Indigo =#4B0082
DarkOliveGreen=#556B2F
CadetBlue=#5F9EA0
CornflowerBlue=#6495ED
MediumAquaMarine=#66CDAA
DimGray=#696969
SlateBlue=#6A5ACD
OliveDrab=#6B8E23
SlateGray=#708090
LightSlateGray=#778899
MediumSlateBlue=#7B68EE
LawnGreen=#7CFC00
Chartreuse=#7FFF00
Aquamarine=#7FFFD4
Maroon=#800000
Purple=#800080
Olive=#808000
Gray=#808080
SkyBlue=#87CEEB
LightSkyBlue=#87CEFA
BlueViolet=#8A2BE2
DarkRed=#8B0000
DarkMagenta=#8B008B
SaddleBrown=#8B4513
DarkSeaGreen=#8FBC8F
LightGreen=#90EE90
MediumPurple=#9370D8
DarkViolet=#9400D3
PaleGreen=#98FB98
DarkOrchid=#9932CC
YellowGreen=#9ACD32
Sienna=#A0522D
Brown=#A52A2A
DarkGray=#A9A9A9
LightBlue=#ADD8E6
GreenYellow=#ADFF2F
PaleTurquoise=#AFEEEE
LightSteelBlue=#B0C4DE
PowderBlue=#B0E0E6
FireBrick=#B22222
DarkGoldenRod=#B8860B
MediumOrchid=#BA55D3
RosyBrown=#BC8F8F
DarkKhaki=#BDB76B
Silver=#C0C0C0
MediumVioletRed=#C71585
IndianRed =#CD5C5C
Peru=#CD853F
Chocolate=#D2691E
Tan=#D2B48C
LightGrey=#D3D3D3
PaleVioletRed=#D87093
Thistle=#D8BFD8
Orchid=#DA70D6
GoldenRod=#DAA520
Crimson=#DC143C
Gainsboro=#DCDCDC
Plum=#DDA0DD
BurlyWood=#DEB887
LightCyan=#E0FFFF
Lavender=#E6E6FA
DarkSalmon=#E9967A
Violet=#EE82EE
PaleGoldenRod=#EEE8AA
LightCoral=#F08080
Khaki=#F0E68C
AliceBlue=#F0F8FF
HoneyDew=#F0FFF0
Azure=#F0FFFF
SandyBrown=#F4A460
Wheat=#F5DEB3
Beige=#F5F5DC
WhiteSmoke=#F5F5F5
MintCream=#F5FFFA
GhostWhite=#F8F8FF
Salmon=#FA8072
AntiqueWhite=#FAEBD7
Linen=#FAF0E6
LightGoldenRodYellow=#FAFAD2
OldLace=#FDF5E6
Red=#FF0000
Fuchsia=#FF00FF
Magenta=#FF00FF
DeepPink=#FF1493
OrangeRed=#FF4500
Tomato=#FF6347
HotPink=#FF69B4
Coral=#FF7F50
Darkorange=#FF8C00
LightSalmon=#FFA07A
Orange=#FFA500
LightPink=#FFB6C1
Pink=#FFC0CB
Gold=#FFD700
PeachPuff=#FFDAB9
NavajoWhite=#FFDEAD
Moccasin=#FFE4B5
Bisque=#FFE4C4
MistyRose=#FFE4E1
BlanchedAlmond=#FFEBCD
PapayaWhip=#FFEFD5
LavenderBlush=#FFF0F5
SeaShell=#FFF5EE
Cornsilk=#FFF8DC
LemonChiffon=#FFFACD
FloralWhite=#FFFAF0
Snow=#FFFAFA
Yellow=#FFFF00
LightYellow=#FFFFE0
Ivory=#FFFFF0
White=#FFFFFF

Last edited: 2011-06-19 16:12:11 +0200 (CEST)

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

Gast bianca

2011-06-19 16:53

Test Codezeile mit Tabs

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
        print "getabte sehr lange Zeile mit gaaaaanz viel Text getabte sehr lange Zeile mit gaaaaanz viel Text getabte sehr lange Zeile mit gaaaaanz viel Text getabte sehr lange Zeile mit gaaaaanz viel Text getabte sehr lange Zeile mit gaaaaanz viel Text getabte sehr lange Zeile mit gaaaaanz viel Text ";

Last edited: 2011-06-19 17:17:24 +0200 (CEST)

gelöscht 2013-02-24 15:25
Noch nicht freigegeben 2013-02-24 15:28
+2 replies
pq

2013-02-24 15:36

User since
2009-03-02
341 Artikel
Admin

test
Anhänge

image/gif
30 x 28

camelia-logo28x30.gif

Last edited: 2013-02-24 15:37:11 +0100 (CET)
insert sig here
- Gast frankes
  
  2013-02-24 16:16
  
  Auch mal Bilder einhängen will.
  Last edited: 2013-04-06 15:07:25 +0200 (CEST)

GUIfreund

2013-02-25 12:44

User since
2013-02-25
1 Artikel
Neuzugang
[default_avatar]

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 )

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)

Noch nicht freigegeben 2013-02-25 13:14
Gast ich

2013-03-23 17:17

test

View all threads created 2010-02-05 18:34.