edwerd.pl: vocabulary generation

--------------9355527631787247148
Content-Type: text/plain; charset="iso-8859-1"

This is a little perl script that you can use to generate random
words.  The actual word-generation part of it is lifted from Chris
Pound's "werd" script:

http://www.ruf.rice.edu/~pound/

And the format of the rule-files can be found on that page.  (I
include Chris's sample file for generating pseudo-English words.)

The unique thing about this script is that it generates words *one at
a time* and pauses for each to ask the user if he/she likes that word.
 If not, it tries again until it gets a good match for the meaning.
It also allows you to write in a word if you've gotten sick of the
randomly generated ones and want to put one in manually.

It can also be used more than once on a given file of meanings: it
reads in the meanings it generated last time and allows you to keep
them or reject them in favor of randomly or manually generated new
meanings.

The input file consists of lines of the format:

<meaning>

or

<meaning> = <word>

Where <meaning> is a meaning to which you want to assign a word, and
<word> is an existing word you have which is assigned to that meaning.

Perl geeks: keep in mind I'm a beginner at this -- this is my Very
First Perl Program.  There are probably better ways to do a lot of
things I did (I couldn't for the life of me figure out a way to use
regexps to chop whitespace off the right side of a string, for
example, so I used repeated 'chops' to do the trick).  I would welcome
constructive criticism.

Ed

--------------9355527631787247148
Content-Type: application/octet-stream; name="edwerd.pl"
Content-Disposition: attachment; filename="edwerd.pl"
Content-Transfer-Encoding: base64

IyEvdXNyL2xvY2FsL2Jpbi9wZXJsDQojIGVkd2VyZCwgYnkgRWR3YXJkIEhlaWwgKGVkaGVp
bEBwb3N0bWFyay5uZXQpDQojIHRoaXMgaXMgYSBtb2RpZmllZCB2ZXJzaW9uIG9mIENocmlz
IFBvdW5kJ3MgJ3dlcmQnIHByb2dyYW0NCiMgZm91bmQgYXQgaHR0cDovL3d3dy5ydWYucmlj
ZS5lZHUvfnBvdW5kLw0KIyANCiMgSXQgdGFrZXMgYSBydWxlZmlsZSB3aGljaCBkZWZpbmVz
IHRoZSB3YXkgcmFuZG9tIHdvcmRzIGFyZSBnZW5lcmF0ZWQNCiMgKHNlZSB0aGUgZXhhbXBs
ZXMgb24gQ2hyaXMgUG91bmQncyBzaXRlKSBhbmQgaXQNCiMgbW9kaWZpZXMgYSBsZXhmaWxl
IHdoaWNoIGNvbnNpc3RzIG9mIG1lYW5pbmdzLCBhbmQgb3B0aW9uYWxseQ0KIyB3b3Jkcy4g
IFRoZSB3b3JkcyBzaG91bGQgZm9sbG93IHRoZSBtZWFuaW5ncywgYW5kIHRoZXkgc2hvdWxk
IGJlDQojIHNlcGFyYXRlZCBieSB0aGUgIj0iIGNoYXJhY3Rlci4gIFRoZSBpZGVhIGlzIGZv
ciB0aGUgdXNlciB0bw0KIyBydW4gZG93biBhIGxpc3Qgb2YgbWVhbmluZ3MgYW5kIGRlY2lk
ZSBvbiB3b3JkcyBmb3IgdGhlbS4gIEl0IGlzDQojIGRlc2lnbmVkIHNvIGFuIGV4aXN0aW5n
IHNldCBvZiBtZWFuaW5ncyBjYW4gYmUgZ29uZSB0aHJvdWdoIG1vcmUgdGhhbg0KIyBvbmNl
LCBpbiBtb3JlIHRoYW4gb25lIHNlc3Npb24uDQojDQoNCnNyYW5kKHRpbWUpOw0KJHVzYWdl
PSJ1c2FnZTogJDAgcnVsZWZpbGUgbGV4ZmlsZVxuIjsNCiRydWxlZmlsZT0kQVJHVlswXSB8
fCBkaWUgJHVzYWdlOw0KJGxleGZpbGU9JEFSR1ZbMV0gfHwgZGllICR1c2FnZTsNCiRuZXdm
aWxlPSRsZXhmaWxlLiIubmV3IjsNCg0Kb3BlbihSVUxFUywgJHJ1bGVmaWxlKSB8fCBkaWUg
IiRydWxlZmlsZSBub3QgZm91bmRcbiI7DQp3aGlsZSAoPFJVTEVTPikgeyAvXihbQS1aXSk6
KC4qKVxzKyQvOyAkcnVsZXskMX0gPSAkMjsgfQ0KY2xvc2UoUlVMRVMpOw0KDQpvcGVuKExF
WCwgJGxleGZpbGUpIHx8IGRpZSAiJGxleGZpbGUgbm90IGZvdW5kXG4iOw0Kb3BlbihORVcs
ICI+JG5ld2ZpbGUiKSB8fCBkaWUgIiRuZXdmaWxlIGNvdWxkIG5vdCBiZSBjcmVhdGVkXG4i
Ow0KDQokYW5zd2VyPScnOw0KDQp3aGlsZSAoPExFWD4pIHsNCiBpZiAoJGFuc3dlcj1+L3Ev
aSkge3ByaW50IE5FVzsgbmV4dH0NCiBjaG9tcDsNCg0KIH4vXHMqKFtePV0qKT0qXHMqKC4q
KS87ICMgdHdvIGVudGl0aWVzIHdpdGggIj0iIGFuZCBzcGFjZSBkaXZpZGluZyB0aGVtDQoN
CiAkbWVhbmluZz0kMTsNCiB3aGlsZSAoJG1lYW5pbmc9fi8uKiAvKSB7Y2hvcCgkbWVhbmlu
Zyl9OyAjZ2V0IHJpZCBvZiB0cmFpbGluZyBzcGFjZXMNCiAkd29yZD0kMjsNCiB3aGlsZSAo
JHdvcmQ9fi8uKiAvKSB7Y2hvcCgkd29yZCl9OyAjZ2V0IHJpZCBvZiB0cmFpbGluZyBzcGFj
ZXMNCiAkYW5zd2VyPSduJzsNCiBuZXh0IHVubGVzcyAkbWVhbmluZzsgI3NraXAgYm9ndXMg
bGluZXMNCg0Kd2hpbGUgKCRhbnN3ZXI9fi9uL2kpIHsNCiAgJHdvcmQ9cGFyc2UoJ1cnKSB1
bmxlc3MgJHdvcmQ7DQogIHByaW50IFNURE9VVCAiJG1lYW5pbmcgPSAkd29yZCAgICAgT0s/
ICh5L24vdy9xKSAiOw0KICAkYW5zd2VyPTxTVERJTj47DQogIGlmICgkYW5zd2VyPX4vbi9p
KSB7JHdvcmQ9Jyd9DQogIGlmICgkYW5zd2VyPX4vdy9pKSB7DQogICAgIHByaW50IFNURE9V
VCAiV3JpdGUgaW4gd29yZCBmb3IgJG1lYW5pbmc6ICI7DQogICAgICR3b3JkPTxTVERJTj47
DQogICAgIGNob21wICgkd29yZCk7DQogICAgICRhbnN3ZXI9InkiOw0KICAgICB9DQogIH0N
CiBwcmludCBORVcgIiRtZWFuaW5nID0gJHdvcmRcbiI7DQogfQ0KDQpjbG9zZSAoTkVXKTsN
CmNsb3NlIChMRVgpOw0KDQpyZW5hbWUoJGxleGZpbGUsIiRsZXhmaWxlLm9sZCIpOw0KcmVu
YW1lKCRuZXdmaWxlLCRsZXhmaWxlKTsNCg0Kc3ViIHBhcnNlIHsNCiAkXz1wb3AoQF8pOw0K
IG15ICgkcmVzdWx0KT0nJzsNCiAvW15BLVpdLyAmJiByZXR1cm4gJF87DQogQFRNUD1zcGxp
dCgvXHMrLywgJHJ1bGV7JF99KTsNCiAkXz1zcGxpY2UoQFRNUCwgcmFuZCBAVE1QLCAxKTsN
CiBmb3IgKHNwbGl0KCcnKSkgeyAkcmVzdWx0ID0gJHJlc3VsdC4mcGFyc2UoJF8pOyB9DQog
cmV0dXJuICRyZXN1bHQNCn0NCg==

--------------9355527631787247148
Content-Type: application/octet-stream; name="w-english"
Content-Disposition: attachment; filename="w-english"
Content-Transfer-Encoding: base64

IyBXZXJkIGRvZXNuJ3QgdGFrZSBraW5kbHkgdG8gaW1wcm9wZXJseSBmb3JtYXR0ZWQgZGF0
YSBmaWxlcy4KIyBGb3IgZXhhbXBsZSwgd2hpdGUgc3BhY2UgaW5zaWRlIGZpZWxkcyAxIGFu
ZCAyIGlzIG1lYW5pbmdmdWwhCiMgQmUgY2FyZWZ1bCB3aXRoIGNvbG9ucyB0b28gLi4uCiMK
IyBOb3RlOiB0aGVyZSBtdXN0IGJlIGEgcnVsZSwgaW5kZXhlZCBhcyAiVyIsIGNvbnRhaW5p
bmcgdGhlCiMgYmFzaWMgY29tYmluYXRpb25zIG9mIHJ1bGVzL2xldHRlcnMgdG8gYmUgZm91
bmQgaW4geW91ciB3b3Jkcy4KIwojIEhlcmUncyB3aGF0IHRoZSBmaWVsZHMgbWVhbjoKIyBS
dWxlLWluZGV4OlJ1bGUgbGlzdAojCiMgSXQncyBhIGdvb2QgaWRlYSB0byBwdXQgY29tbWVu
dHMgdGVsbGluZyB5b3Ugd2hhdCBlYWNoIHJ1bGUKIyBpcyBkZXNpZ25lZCB0byBkbyAuLi4K
IwojIFdvcmRzClc6Q1QgQ1QgQ1ggQ0RGIENWRlQgQ0RGVSBDVFUgSVQgSUNUCiMKIyBQcmVm
aXhlcwpJOmV4IGluIHVuIHJlCiMKIyBFbmRzIG9mIFdvcmRzClQ6VkYgVkVlCiMKIyBTdWZm
aXhlcwpVOmVyIGlzaCBseSBlbiBpbmcgbmVzcyBtZW50IGFibGUgaXZlCiMKIyBDb25zb25h
bnRzCkM6YiBjIGNoIGQgZiBnIGggaiBrIGwgbSBuIHAgcXUgciBzIHNoIHQgdGggdiB3IHkg
c1AgUnIgTGwKIwojIE9jY3VycmluZyBiZWZvcmUgc2lsZW50ICJlIgpFOmIgYyBjaCBkIGYg
ZyBkZyBsIG0gbiBwIHIgcyB0IHRoIHYgegojCiMgRmluYWwgbGV0dGVycwpGOmIgdGNoIGQg
ZmYgZyBnaCBjayBsbCBtIG4gbiBuZyBwIHIgc3Mgc2ggdCB0dCB0aCB4IHkgenogclIgc1Ag
bEwKIwojIFZvaWNlbGVzcyBzdG9wcwpQOnAgdCBrIGMKIwojIFZvaWNlZCBzdG9wcwpROmIg
ZCBnCiMKIyBDYW4gYmUgbmV4dCB0byAibCIKTDpiIGYgayBwIHMKIwojIENhbiBiZSBuZXh0
IHRvICJyIgpSOlAgUSBmIHRoIHNoCiMKIyBTaW1wbGUgdm93ZWxzClY6YSBlIGkgbyB1CiMK
IyBEaXB0aG9uZ3MKRDphdyBlaSBvdyBvdSBpZSBlYSBhaSBveQojCiMgRmluYWwgdm93ZWxz
L2RpcHRob25ncwpYOmUgaSBvIGF3IG93IG95Cg==

--------------9355527631787247148--