Opened by DemoFreak at 2004-02-04 14:37
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Aber zweistufig gehts:
Ausgabe:
\n\n
<!--EDIT|Crian|1075900319-->
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl
use strict;
use warnings;
my $anz;
while (<DATA>) {
if ( m~h(0401[0-9.]+?)\.gz # -> $1
\s
[-a-z0-9]{36}
\s
[-a-z0-9]{36}
\s
\d+
\s
\d+
\s
(\d+) # -> $2
\s
~x
)
{
print "3. $1 $2 ";
m~h0401[0-9.]+?\.gz
\s
[-a-z0-9]{36}
\s
[-a-z0-9]{36}
\s
\d+
\s
\d+
\s
\d+
\s
(.{$2}) # -> $1
~x;
print "$1\n";
}
else {
print "nö\n";
}
}
_ _DATA_ _
h040111.233001.gz bfb4e2e0-41f7-71d8-1c34-0aa0093f0000 cb32393c-5603-71d7-1bec-0aa01c1b0000 1 178260287 24 einrechner.einedomain.de 1 178260287
Ausgabe:
Code: (dl
)
3. 040111.233001 24 einrechner.einedomain.de
<!--EDIT|Crian|1075900319-->
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