Der Nonsensgenerator

Beschreibung

Das Skript

#!/usr/bin/perl 
 
use warnings; 
use strict; 
 
my @Vok_de = qw(a a a a a au au 
    e e e e e ei ei eu eu 
    i i i ie ie ieh 
    o o o o oh 
    u u u uh 
    ä ö ü); 
my @Kon_de = qw(b bl br ch chl chr d dr dsch 
    f fl fr g gl gr h j k kl kn kr 
    l m n p pf pfl pl pr qu r 
    s sch schl schm schn schr schw 
    sp spr st str sw t tr tsch v w x z zw); 
my @SubEnd_de = qw(a ack al an ant anz ar as at 
    e ech eck eg el en ept er es 
    ich ick ie iet ik ing int ion irt isch ist it itz 
    och on or ost ott 
    uh ung ur ust utz 
    ); 
 
sub ra (\@) { return $_[0]->[rand @{$_[0]}] }; 
 
sub neusubst { 
    my $str = ucfirst ra(@Kon_de); 
    $str .= ra(@Vok_de) . ra(@Kon_de) for 0 .. rand 3; 
    $str .= ra(@SubEnd_de); 
    $str; 
} 
 
sub neuverb { 
    my $str = ra(@Kon_de); 
    $str .= ra(@Vok_de) . ra(@Kon_de) for 0 .. rand 2; 
    $str .= 'en'; 
} 
 
print "Was machen wir denn heute?\n"; 
for (0 .. 9) { 
    print '- '; 
    my $s = neusubst(); 
    print +(rand() < 0.2 ? (rand() < 0.5 ? 'd' : 'm') : ''), 'ein'; 
    print 'e' if $s =~ /(a|e|ik|ion|ung)$/; 
    print ' ', $s, ' ', neuverb(), ".\n"; 
} 
 
# vim:sts=4:sw=4: 

Ergänzungen, Kommentare

       ---### Main.??? - 14 Jul 2003 - Betreff