Opened by Gast at 2006-08-25 14:42
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Wenns um die If-Geschchte geht:
Einmal außerhalb definieren:
und dann in der Schleife nur noch
Einmal außerhalb definieren:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my %byte_text = (
'0' => 'nicht gesetzt',
'1' => 'niedrig',
'2' => 'niedrig',
'3' => 'niedrig',
'4' => 'niedrig',
'5' => 'niedrig',
'6' => 'niedrig',
'7' => 'mittelniedrig',
'8' => 'mittelniedrig',
'9' => 'mittelniedrig',
'A' => 'Es ist mittelwert',
'B' => 'mittelhoch',
'C' => 'mittelhoch',
'D' => 'hoch',
'E' => 'hoch',
'F' => 'Es ist auf max',
);
und dann in der Schleife nur noch
Code: (dl
)
print $byte_text{$interessantesbyte};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
use strict; use warnings; Link zu meiner Perlseite