ETOOBUSY 🚀 minimal blogging for the impatient
Generate an example "name"
TL;DR
Want a name for your initiative? Why not pair an adjective and a noun then? Why not generate it programatically?!?
In a couple of previous posts we looked at how to get our hands on some words - for example A Public Domain List of Words.
Let’s put that list to work:
generate-name.pl
850 B
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/env perl
use 5.024;
use warnings;
use experimental qw< postderef signatures >;
no warnings qw< experimental::postderef experimental::signatures >;
use JSON::PP 'decode_json';
my $words = read_json(shift // 'words.json');
my $pair = generate_pair($words);
say join ' ', $pair->@*;
sub generate_pair ($words) {
my $noun_hash = $words->{nouns}[rand $words->{nouns}->@*];
my @alts = grep {defined && length} values $noun_hash->%*;
my $term = $alts[rand @alts];
my @adjectives = (
$words->{adjectives}->@*,
map { $_->@{qw< participle ing >} } $words->{verbs}->@*,
);
my $adjective = $adjectives[rand @adjectives];
return [$adjective, $term];
}
sub read_json ($filepath) {
open my $fh, '<', $filepath or die "open('$filepath'): $!\n";
my $text = do { local $/; <$fh> };
return decode_json $text;
}Local version here. If you need it, you can also find the JSON file with words.
Reading the whole JSON file in a Perl data structure is encapsulated in
its own function read_json in lines 27-31.
Function generate_pair is devoted to draw an adjective and a noun
randomly:
- for adjectives, we consider the direct ones with the addition of a couple of verbal forms, namely past participles and ing forms;
- for nouns… we just use nouns.
After drawing them, the pair is returned as an anonymous array (line 24) and printed out (line 11).
Time for a sample run:
$ for x in 1 2 3 4 5 ; do ./generate-name.pl ; done
trotting moons
chopping scratches
good crews
lathering crevices
screamed cyclone
Funny 😄