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

[Hans Meier (John Doe)]

Cyrill Helg am Montag, 20. März 2006 18.31:
> Am Montag, 20. März 2006 18:07 schrieb Hans Meier (John Doe):
> > Hallo Cyrill,
> >
> > Du hast es auf Mac oder Win laufen lassen? Offenbar gibt's Probleme mit
> > den Zeilenenden.
>
> Nein, wo denkst du auch hin.

Oups - ist ja eine gentoo-Liste :-)

und sorry an alle fuer das OT...

> Wahrscheinlich habe ich es nicht sauber kopiert, denn nun läufts.
[...]
> Im WWW wird's Tonnen von Scripten geben, die
> > dasselbe machen...
>
> Nach was soll man da so ungefähr googlen? Nicht ganz einfach...

Keine Ahnung...

Hier eine korrigierte Version, die nicht mehr hängenbleiben sollte:

[Die Optimierung von Sebastian (bei zusammengesetzten Wörtern die Teile 
separat umstellen, damit die Umstellung lesbar bleibt) ist hier nicht 
implementiert]

#!/usr/bin/perl

# script to reorder inner characters of words in a text
# STDIN -> script -> STDOUT
# The chosen strategy is not performant, esp. for long words

use strict;
use warnings;

# number of tries to get different reordered string
#
my $max_tries=3;

sub reorder {
  my $s=shift;
  my @ch=split //, $s;

  # special case: all @ch are the same => noop
  #
  my %different;
  @different{@ch}=(1 x @ch);
  return $s if keys %different==1;

  my $new;
  my $tries=0;

  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;
    $tries++;
  } while $tries <= $max_tries and $s eq $new;

  return $new;
}

my $text;
{local $/; $text=<STDIN>;} # local scope

# reorder inner chars of words with at least 4 characters
#
$text=~s/(\b\w)(\w{2,}?)(\w\b)/$1.reorder($2).$3/egs;

print $text;

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