Dotfiles, utilities, and other apparatus.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

38 lines
1.0 KiB

# This dates, as best I can now remember, to some argument about the
# demographics of the SparkFun customer base, probably in the context of
# whether we needed to Google Analytics everything to know things about our
# customers. I think my point was approximately "friends, we already know that
# most of our users are dudes and here is some rough confirmation of that
# painfully obvious statement".
# Expects
# No strong beliefs about the nature or appropriate quantization of sex,
# gender, names, or human identity generally on the part of the author are
# represented by this code fragment.
use strict;
use warnings;
use Text::GenderFromName;
use 5.10.0;
my ($male, $female, $unknown) = (0, 0, 0);
while (my $name = <STDIN>) {
chomp $name;
my $gender = gender($name);
if (! defined $gender) {
if ($gender eq 'm') {
} elsif ($gender eq 'f') {
say "male: $male, female: $female, unknown: $unknown";