Re: [gentoo-user-de] pam zickt rum, kein login mehr möglich

[Hans Meier (John Doe)]

Cyrill Helg am Montag, 20. März 2006 11.53:
> Am Montag, 20. März 2006 11:46 schrieb Peter Bossy:
> > On Friday 17 March 2006 20:27, Jens 'Mr.Big' Bläsche wrote:
> > > Gme_ eneir Sutide eneir elgnihcesn Uvinistert, ist es nchit witihcg
> > > in wlecehr Rneflogheie die Bstachuebn in eneim Wrot snid. Das
> > > ezniige was wcthiig ist, ist da_ der estre und der leztte Bstabchue
> > > an der ritihcegn Pstoiion snid.
> >
> > Das erstaunliche daran ist, daß es leichter fällt wenn man den Text
> > schnell liest. Versucht man sich auf das einzelne Wort zu
> > konzentrieren, wird es schwer es zu lesen.
>
> Schade nur, dass immer dieser Text verwendet wird, den kennt eh schon
> jeder. Wo gibts mehr davon? Oder wer schreibt mal sein Problem so? =)
>
> Lustig wäre auch ein Script dafür zu schreiben...

Hier ein quick'n'dirty script - Eleganz war nicht das Ziel :-)

Input via STDIN, output auf STDOUT.

#!/usr/bin/perl
use strict;
use warnings;

sub reorder {
  my $s=shift;
  my @ch=split //, $s;
  my $new;
  do {
    my (@n, %seen);
    $new='';
    my $dec=@ch;
    while (@ch) {
      my $i=int(rand(scalar(@ch)));
      next if $seen{$i};
      $seen{$i}=1;
      push @n, $ch[$i];
      last unless --$dec;
    }
    $new=join '', @n;
  } while $s eq $new;
  return $new;
}

my $text;
{
  local $/;
  $text=<STDIN>;
}
$text=~s/(\b\w)(\w{2,}?)(\w\b)/$1.reorder($2).$3/egs;
print $text;

Hans

-- 
gentoo-user-de@g.o mailing list