Computer und Kunst?
Es ist bekannt, daß für manche Menschen
ein Perl-Programm etwas ähnliches wie ein Gedicht ist.
Es ist aber durchaus auch möglich, mit Perl Gedichte zu
erzeugen. Die künstlerische Tätikeit
dabei beschränkt sich allerings auf Kopieren von Text und etwas Würzen mit
Zufall.
Das folgende kleine Script liest einen Eingabetext als Vorlage.
Anschließend durchsucht es den Text nach einem als Parameter
übergebenen Wort, erstellt eine Häuffigkeitstabelle für alle
dem Wort folgenden Zeichen, und wählt entsprechend der
Tabelle ein neues Zeichen aus. Dies wird dann ausgegeben.
Vom gesuchten Wort wird das erste Zeichen abgeschnitten und
das neue Zeichen angehängt. Und wieder geht es von vorne los.
Die besten Ergebnisse erreicht man mit Eingabewörtern die
zwischen vier und sechs Zeichen lang sind. Na ja, das ist
natürlich Geschmackssache. Mit weniger Zeichen wird es
"mehr zufällig" und mit mehr Zeichen wird der produzierte
Text dem Original immer ähnlicher.
#!/usr/bin/perl use strict; use warnings; $|=1; my ($pattern,$INFILE) = @ARGV; open (IN,$INFILE) || die "cant open file"; my $text = join "",Hier noch ein Ausschnitt aus dem Anfang von Georg Büchner's "Lenz", produziert mit "Kinde" als Eingabewort:; print $pattern; while (1) { my @succ = $text =~ m/$pattern(.{1})/gs or die "pattern not found"; my (%occ,$sum,$nextchar); foreach (0 .. $#succ) {$sum++; $occ{$succ[$_]}++;} my $rand = int(rand($sum+1)); LOOP: foreach my $key (sort {$occ{$b}<=>$occ{$a}} keys %occ) { $rand -= $occ{$key}; if ($rand <= 0) { $nextchar = $key; last LOOP; }; } print $nextchar; $pattern = substr($pattern,1,length($pattern)).$nextchar; }
Kindergesicht, er sah Licht ertragen können, allein, ganze Bewegung, keine, er sah hinein und alles. Einzelne Gedanken huschte sich in das jetzt schämte er hinabstieg i n der Stimmen, wo er waren nur waren zerrissen. die Gipfel in die Fenstein so wegsprang, der grauen, er so viel Zeit zum Gehen. das Land hinunter ihm, als müsse ihn über das Dorf. Die Lichtern, fest, weit der Strom, der Blick reichen, etwas, das Bewußtsein seiner Lage stand vor ihm.nichts: er war ihm zog. großer Höhe des Wind verhallte und tiefen Blau ein goldner Strom, der Stern und hob; kein Lärm.
Alle Touren
Schneebergwege
- Bergrettungssteig
- Emmysteig
- Fadensteig
- Ferdinand Mayr-Weg
- Fischersteig
- Franz-Josef-Promenade
- Hotelries
- Hochgang
- Krummbachgraben
- Kuhschneeberg
- Kuhsteig
- Lärchkogelgrat
- Nandlgraben
- Nandlgrat
- Nandlgrat (Alter Nandlsteig)
- Niederlauf
- Novembergrat
- Nördlicher Grafensteig
- Oberer Herminensteig
- Oktobergrat
- Stadelwandgraben
- Südlicher Grafensteig
- Unterer Herminensteig
- Waxriegel
- Weichtalklamm
Raxsteige
- Alpenvereinssteig
- Altenbergsteig
- Bärenlochsteig
- Brandschneide
- Camillo Kronich-Steig
- Gaisloch
- Gamsecksteig
- Gretchensteig
- Göbl Kühn-Steig
- Großes Fuchsloch
- Großes Wolfstal
- Großer Kesselgraben
- Ho Chi Minh Pfad
- Hoyossteig
- Karl Kantner-Steig
- Kaisersteig
- Kontruszsteig
- Kronich Eisenweg
- Martinsteig
- Peter Jokel-Steig
- Preinerwandsteig
- Raxenmäuersteig
- Reisstalersteig
- Rudolfsteig
- Schlangenweg
- Staudengraben
- Wildfährte
- Teufelsbadstubensteig
- Törlweg
- Waxriegelsteig
- Wachthüttelkamm
Geführte Touren
- Schneeberg Oktobergrat
- Gösing Hoyos-Steig
- Gösing und Flatzer Wand
- Gösing Hoyos-Steig
- Kienberg und Himberg
- Flatzer Wand und Gösing
- Gösing Hoyos-Steig
- Gahns Saurüssel
- Rax mit Schneeschuhen
- Himberg und Kienberg
- Flatzer Wand und Gösing
- Gösing Hoyossteig
- Prettschachersteig und Krummbachstein
- Schneeberg Oktobergrat
- Gösing Hoyossteig
- Semmering Bahnwanderweg
- Miesenbach Biedermeierrunde
- Gösing Hoyossteig
- Rax mit Schneeschuhen
- Flatzer Wand und Gösing
- Gösing Hoyossteig
- Schneeberg Novembergrat
- Schneeberg Grafensteig und Hengst
- Schneeberg Nandlgrat
- Gösing Hoyossteig
- Gahns Saurüssel
- Biedermeierrunde Miesenbach
- Gösing Hoyossteig
- Gösing Hoyossteig
- Rax mit Schneeschuhen
- Gahns Saurüssel
- Rax mit Schneeschuhen
- Gösing Hoyossteig
- Schneeberg Novembergrat
- Krummbachstein
- Schneeberg Oktobergrat
- Schneeberg Alter Nandlsteig
- Schneeberg Herminensteig
- Gösing und Flatzer Wand
- Rax mit Schneeschuhen
- Gösing Hoyossteig
- Schneeberg_Novembergrat
- Schneeberg Alter Nandlsteig
- Schneeberg Herminensteig
- Schneeberg Brandmauer und Stadelwand
- Schneeberg und Hengst
- Gösing Hoyos-Steig
- Rax mit Schneeschuhen
- Schneeberg Herminensteig und Hengst
- Schneeberg Novembergrat
- Schneeberg Herminensteig
- Schneeberg Herminensteig
- Schneeberg Alter Nandlsteig
- Miesenbach Biedermeierrunde
- Flatzer Wand und Gösing
- Dürre Leiten mit Schneeschuhen
- Rax mit Schneeschuhen
- Dürre Leiten mit Schneeschuhen
- Schneeberg Brandmauer
- Schneeberg Novembergrat
- Miesenbach Biedermeierrrunde
- Gahns Eng und Saurüssel mit Schneeschuhen
- Kuhschneeberg mit Schneeschuhen
- Novembergrat
- Nördlicher Grafensteig und Hengst
- Miesenbach Biedermeierrunde
- Flatzer Wand und Gösing
- Großes Wolfstal
- Alter Nandlsteig
- Herminensteigvariationen
- Gahns Saurüssel mit Schneeschuhen
- Dürre Leiten mit Schneeschuhen
- Kuhschneeberg mit Schneeschuhen
- Flatzer Wand und Gösing
- Großes Wolfstal
- Alter Nandlsteig
- Biedermeierrunde in Miesenbach
- Gahns Saurüssel und Eng