in reply to Re: Seeking Perl poetry code that writes poems
in thread Seeking Perl poetry code that writes poems

Ok, this is a tribute to the wonderful perlmonks site - a grammar I am working on that describes an event that could/might/had happened at perlmonks. I thought it was quite fun to play with, so I am posting it here. Please feel free to add to the grammar or give suggestions. ;-)

The perlmonks grammar:
Perlmonks event generator ------------------------- Written by Roger, Dec 4, 2003, as a tribute to the perlmonks. { <start> <sometime>, <event>. <response>. <vote>. ; } { <vote> no vote was casted by monks ; <gender> was <updown> voted ; <gender> was up voted <good_reason> ; <gender> was down voted <bad_reason>; } { <good_reason> because it gave a good challenge ; because of its popularity ; because it was interesting ; because it was <extremely> interesting ; because it was <extremely> smart ; } { <bad_reason> because it did not give a good challenge; because it was unpopular ; because it was not interesting ; because it was too simple ; because it lacked material ; } { <extremely> very ; extremely ; pretty ; quite ; } { <updown> up ; down ; } { <gender> he ; she ; } { <response> it stired <quantity> responses from monks ; <quantity> monks joined the discussion ; <pitty> no monks were interested in the topic ; <pitty> no monks gave any response ; <pitty> there was no reply ; } { <quantity> a lot of ; lots of ; plenty of ; only a handful of ; a dozen ; some ; few ; many ; a great number of ; } { <pitty> pitty ; unfortunately ; bad luck ; tough luck ; somehow ; } { <event> <someone> <encounter> a <problem> problem; <someone> <encounter> a problem on <problem>; <someone> <encounter> an idea on <idea> and wish to <inform> other mon +ks at Perlmonks ; } { <someone> anonymous monk ; some monk ; <experience> monk ; <pm_title> monk ; } { <encounter> encountered ; had ; found ; discoverred ; thought about ; bumped into ; fancied ; } { <inform> share with ; discuss with ; tell ; inform ; anounce to ; have attention of ; } { <problem> redirection within a Perl script ; how to do splitting ; need some pointers using Expect.pm ; win32::ole ActiveWindow ; recursive transition networks ; host with multiple ip addresses ; subclass and overridden constructor ; } { <meditation> balancing coding time and coding quality ; perl 'beans' ? ; amusing infection ; Win32 binary (and extensible) OO-perl applications ; Perl of the Future ; } { <idea> how to improve PM ; how to write better code ; writing better code ; how to do networking ; perl golfing ; creating a website ; coding efficiency ; <meditation> ; } { <tricky> tricky ; simple ; easy ; hard ; not so easy ; not straight forward ; } { <experience> novice ; intermediate ; advanced ; seasoned ; experienced ; inexperienced ; newbie ; } { <pm_title> initiate ; novice ; acolyte ; scribe ; monk ; friar ; abbot ; bishop ; pontiff ; saint ; } { <sometime> one day ; the other day ; once upon a time ; today ; yesterday ; on a <weather> <weekday>; <which> <weekday> ; <weekday> <which> week ; } { <which> this ; last ; } { <weather> fine ; stormy ; rainy ; warm ; hot ; cold ; } { <weekday> Monday ; Tuesday ; Wednesday ; Thursday ; Friday ; Saturday ; Sunday ; weekend ; }


And when I ran the text generator in the previous post, I got some quite funny results -
Thursday this week, some monk encountered an idea on how to do networking and wish to inform other monks at Perlmonks. bad luck no monks gave any response. he was up voted. once upon a time, intermediate monk bumped into a need some pointers using Expect.pm problem. bad luck no monks gave any response. he was down voted because it was too simple. Monday last week, bishop monk encountered a problem on need some pointers using Expect.pm. it stired some responses from monks. she was up voted because it gave a good challenge. ...
Have fun. ;-)