Opened by Gast at 2003-12-11 12:15
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
So gehts:
Ausgabe:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
my $String = 'Kuckst Du hier';
my $Suchen = '(Kuckst)( Du )(hier)';
my $Ersetzen = '$3$2$1';
my $RE = "s~$Suchen~$Ersetzen~";
print "RE : '$RE'\n";
print "String: '$String'\n";
$_ = $String;
eval $RE;
$String = $_;
print "String: '$String'\n";
Ausgabe:
Code: (dl
)
1
2
3
RE : 's~(Kuckst)( Du )(hier)~$3$2$1~'
String: 'Kuckst Du hier'
String: 'hier Du Kuckst'
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