Opened by Rambo at 2005-02-16 10:46
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=Rambo,19.02.2005, 10:47]
[/quote]
Das schreit danach, eleganter gemacht zu werden. Möglichkeit 1:
Möglichkeit 2:
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
26
27
28
if ($port eq "2010")
{
$portmap = "3100";
}
elsif ($port eq "2020")
{
$portmap = "3200";
}
elsif ($port eq "2030")
{
$portmap = "3300";
}
elsif ($port eq "2040")
{
$portmap = "3400";
}
elsif ($port eq "2050")
{
$portmap = "3500";
}
elsif ($port eq "2060")
{
$portmap = "3600";
}
elsif ($port eq "2070")
{
$portmap = "3700";
}
Das schreit danach, eleganter gemacht zu werden. Möglichkeit 1:
Code: (dl
)
my $portmap = 3000 + ($port-2000)*10;
Möglichkeit 2:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my %aus = (2010 => 3100,
2020 => 3200,
2030 => 3300,
2040 => 3400,
2050 => 3500,
2060 => 3600,
2070 => 3700,
);
$portmap = exists $aus{$port}
? $aus{$port}
: $port;
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