Thread Verarscht mich Perl? (8 answers)
Opened by [E|B] at 2003-10-17 20:24

Crian
 2003-10-20 18:37
#64575 #64575
User since
2003-08-04
5871 Artikel
ModeratorIn
[Homepage]
user image
Sowas:

[E|B
,17.10.2003, 18:33]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$header =~ s/<_CGI>/$cgi/gi;
$header =~ s/<_GRAFIK>/$graphics/gi;
$header =~ s/<_FONT>/$font/gi;
$header =~ s/<_BFC>/$bodyfontcolor/gi;
$header =~ s/<_BGC>/$bgcolor/gi;
$header =~ s/<_AL>/$alink/gi;
$header =~ s/<_AV>/$avisited/gi;
$header =~ s/<_AA>/$aactive/gi;
$header =~ s/<_AH>/$ahover/gi;
$header =~ s/<_SBGC>/$selectbgc/gi;
$header =~ s/<_SFONT>/$selectfont/gi;
$header =~ s/<_SS>/$selectsize/gi;
$header =~ s/<_TABGC>/$textareabgc/gi;
$header =~ s/<_TAFONT>/$textareafont/gi;
$header =~ s/<_TAS>/$textareasize/gi;
$header =~ s/<_BBGC>/$buttonbgc/gi;
$header =~ s/<_BFONT>/$buttonfont/gi;
$header =~ s/<_BS>/$buttonsize/gi;
$header =~ s/<_TFONT>/$textfont/gi;
$header =~ s/<_TBGC>/$textbgc/gi;
$header =~ s/<_TS>/$textsize/gi;

würd ich immer lieber so schreiben:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
$_ = $header;

s/<_CGI>/$cgi/gi;
s/<_GRAFIK>/$graphics/gi;
s/<_FONT>/$font/gi;
s/<_BFC>/$bodyfontcolor/gi;
s/<_BGC>/$bgcolor/gi;
s/<_AL>/$alink/gi;
s/<_AV>/$avisited/gi;
s/<_AA>/$aactive/gi;
s/<_AH>/$ahover/gi;
s/<_SBGC>/$selectbgc/gi;
s/<_SFONT>/$selectfont/gi;
s/<_SS>/$selectsize/gi;
s/<_TABGC>/$textareabgc/gi;
s/<_TAFONT>/$textareafont/gi;
s/<_TAS>/$textareasize/gi;
s/<_BBGC>/$buttonbgc/gi;
s/<_BFONT>/$buttonfont/gi;
s/<_BS>/$buttonsize/gi;
s/<_TFONT>/$textfont/gi;
s/<_TBGC>/$textbgc/gi;
s/<_TS>/$textsize/gi;

$header = $_;


Edit: Übrigends macht die Verwendung externer Variablen die RE's sehr sehr langsam. Wenns also eine zeitkritische Stelle ist, kopier den Inhalt dort lieber direkt rein.

Edit2: Könnte sein, dass das aber nur für die Verwendung im vorderen Teil galt, es für Deinen Code also gar nicht zutrifft.\n\n

<!--EDIT|Crian|1066660878-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread Verarscht mich Perl?