Opened by Sven at 2003-09-18 15:44
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
oder per Hand, ungefähr so wie in diesem Beipiel:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
sub bubifizier(@) {
my @array = @{shift()};
my $string = '';
for (@array) {
$string .= $_;
$string .= "b$_" if /[aeiuo]/;
}
return $string;
}
my @Array = split //, 'Dies ist ein dummer Testtext...';
print bubifizier(\@Array);
Dibiebes ibist ebeibin dubummeber Tebesttebext...
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