Re: [PERL] Lorem Ipsum generator?

["Thomas D" <sslug@sslug>]

Peter Makholm wrote:
> "Thomas D" <sslug@sslug> writes:
>
>> Jeg har set http://lipsum.com/ hvorpå der er en Lorem Ipsum generator
>> skrevet i perl.
>> Er der nogen af jer der kan forklare hvordan den er lavet?
>
> Der er flere måder at lave det på.
>
> En måde at gøre det på kan groft skitseres ved:
>
> #!perl
>
> # FOO markerer hhv ingenting i begyndelsen og slutningen.
> use constant FOO = <something>;
>
>
> # analyser data som man prøver at genererer. Det kan være
> # H.C. Andersens værker eller forskellige Lorem Ipsum'er
> sub tokenize { ... }
>
> @tokens = (tokenize $inddata, FOO, FOO);
>
> while (@tokens) {
>     ($a, $b $c) = $b, $c, shift @tokens;
>     $hash{$a}{$b}{$c}++
> }
>
> # Generer ny version:
>
> ($a, $b, $c) = (undef, undef, undef);
>
> do {
>     print $a;
>     ($a, $b) = $b, $c;
>     @nexts = ();
>     push @nexts, ($_) x $hash{$a}{$b}{$_} for keys $hash{$a}{$b};
>     $c = $nexts[rand @nexts];
> } until (undefined $a);
>
> __END__
>
> Slutbetingelsen skal ændres så den ikek bliver af en tilfældig længde
> og selve måden at gøre ting på kan optimeres meget, men ideen skulle
> være synlig.
>
> Man kan varierer lidt på hvor lange tupler man vil arbejde med. For
> korte tupler giver for rodet tekst og for langee tupler låser sig for
> meget fast på tekster der indgår i ens originalmateriale.
>
> Afsnit, sætninger og lignende kan også håndteres specielt.
>
>
> For at se resultatet på mere menneskelæsligt tekst kan man se på Per
> Abrahamsens Mark Ove Kvæde <http://www.dina.dk/~abraham/mok/>, som jeg
> mener er baseret på ovenstående principper.

ok, tak for det hurtige svar.


-- 
Med venlig hilsen
Thomas Damgaard
http://tdn.peps.dk
Musikere tjener penge på ulovligt kopieret software.