[H-GEN] Hostnames in meeting.humbug.org.au

Mark Suter suter at zwitterion.humbug.org.au
Sun Aug 22 07:18:43 EDT 2004

Hash: SHA1


I've taken Swambo's suggestion, as relayed by Tony and improved
by Robert and written some code.  Any comments to me directly
please - note use of Reply-To ;)

This should be a cut-and-paste run-from-the-shell-prompt job:

    perl -we '
    my @setA = qw( almond azure beige black blue brown coral cream cyan drab gold
            ivory lace linen navy orange pink plum purple red rose salmon smoke snow
            tan tomato violet wheat white yellow );
    my @setB = qw( baby bed boat box brick car cat chair cloud cow dog fire flower
            hat horse house key mat maze moon paper phone rabbit rock sail snake
            spear stamp star stump table tea tree truck );
    my %seen = ();
    foreach (1 .. 512) {
        my $name = @setA[ rand @setA ] . @setB[ rand @setB ];
        redo if ++$seen{$name} > 1;          # duplicates
        redo if $name =~ m{ \B (.) \1 \B }x; # embedded doubles
        redo if length $name > 10;           # too long
        print "$name\n";

Yours sincerely,

- -- Mark John Suter  | I know that you  believe  you understand
suter at humbug.org.au | what you think I said, but I am not sure
gpg key id 2C71D63D | you realise that what you  heard  is not
mobile 0411 262 316 | what I meant.        Robert J. McCloskey
Version: GnuPG v1.2.5 (GNU/Linux)
Comment: Check Keyservers or http://zwitterion.org/keys/


More information about the General mailing list