1 |
Am Montag, 20. März 2006 14:13 schrieb Hans Meier (John Doe): |
2 |
> #!/usr/bin/perl |
3 |
> use strict; |
4 |
> use warnings; |
5 |
> |
6 |
> sub reorder { |
7 |
> my $s=shift; |
8 |
> my @ch=split //, $s; |
9 |
> my $new; |
10 |
> do { |
11 |
> my (@n, %seen); |
12 |
> $new=''; |
13 |
> my $dec=@ch; |
14 |
> while (@ch) { |
15 |
> my $i=int(rand(scalar(@ch))); |
16 |
> next if $seen{$i}; |
17 |
> $seen{$i}=1; |
18 |
> push @n, $ch[$i]; |
19 |
> last unless --$dec; |
20 |
> } |
21 |
> $new=join '', @n; |
22 |
> } while $s eq $new; |
23 |
> return $new; |
24 |
> } |
25 |
> |
26 |
> my $text; |
27 |
> { |
28 |
> local $/; |
29 |
> $text=<STDIN>; |
30 |
> } |
31 |
> $text=~s/(\b\w)(\w{2,}?)(\w\b)/$1.reorder($2).$3/egs; |
32 |
> print $text; |
33 |
|
34 |
Unglaublich! Und da heisst es immer das gentoo user keine hätten, weil sie |
35 |
schon die ganze Zeit mit ihrem System beschäftigt seien. |
36 |
|
37 |
Nun ja wie rufe ich das auf? =) Ich erhalte folgenden Fehler: |
38 |
Unrecognized character \xA0 at funny-script line 6. |
39 |
|
40 |
Grüsse |
41 |
|
42 |
|
43 |
-- |
44 |
gentoo-user-de@g.o mailing list |