Re: [PERL] Lorem Ipsum generator?

[Peter Makholm <sslug@sslug>]

Peter Makholm <sslug@sslug> writes:

> #!perl

Ehhh, det holder jo ikke. Der var lige nogle ideer der faldt sammen.

> @tokens = (tokenize $inddata, FOO, FOO);

Der skal lige to FOO'er ind i den liste.

> # Generer ny version:
>
> ($a, $b, $c) = (undef, undef, undef);

Det skal nok være FOO'er.

> do {
>     print $a;

Der skal lige tilføjes en 'unless $a == FOO' agtig ting.

>     ($a, $b) = $b, $c;
>     @nexts = ();
>     push @nexts, ($_) x $hash{$a}{$b}{$_} for keys $hash{$a}{$b};
>     $c = $nexts[rand @nexts];
> } until (undefined $a);

until ($c == FOO) agtigt.

-- 
 Peter Makholm     |     Have you ever felt trapped inside a Klein bottle?
 sslug@sslug |                                                      
 http://hacking.dk |