name-gen/name_gen.pl

#!/usr/bin/perl

use strict;
use warnings;

# Read in strings from a file and generate
# an interesting song/album/artist name

# File to get strings from
my $seed_file = $ARGV[0];
my @data = split("\n", `cat $seed_file`);

# Length of random name (in words)
my $length = int(1 + rand(4 - 1));

my @words;

sub word_from_seed() {
	my $word = $data[ rand @data ];
	chomp $word;
	return $word;
}

sub get_word {
	my $tmp_word = word_from_seed();
	chomp $tmp_word;
	my $final = "";
	if ( $tmp_word =~ m/ / ) {
		my @strings = split(" ", $tmp_word);
		my $string = $strings[ rand @strings ];
		$final = $string;
	} elsif ( $tmp_word =~ m/\./ ) {
		my @strings = split(".", $tmp_word);
		my $string = $strings[ rand @strings ];
		$final = $string;
	} else {
		$final = $tmp_word;
	}

	# Chance to splice
	my $flip = 1 + int(rand(2));
	if ( $flip == 1 || $length == 1 ) {
		# Get word, take the first 3 chars,
		# save in $splice_word
		my $splice_word = word_from_seed();
		if ( length $splice_word >= 3 ) {
			if ( $splice_word =~ m/(^.{3})/ ) {
				$splice_word = $1;
			}
		} else {
			$splice_word =~ m/(^.{1})/;
			$splice_word = $1;
		}

		# Get final word, take last $rand chars,
		# add to splice_word
		if ( ! defined $final || $final eq "" )  {
			$final = word_from_seed();
		}
		my $splice_char_num = 1 + int(rand(length $final));
		if ( $splice_char_num < 1 ) {
			$splice_char_num = 1;
		}

		$final =~ m/(.{$splice_char_num}$)/;
		my $splice_word_2 = $1;

		$final = $splice_word . $splice_word_2;
	}

	return $final;

}

if ( defined $ARGV[1] && $ARGV[1] eq "--gen-seed" ) {
	my @seed_words = ();
	foreach my $i ( 1..10000 ) {
		my $word = get_word();
		push(@seed_words, $word);
	}
	my $word_list = join("\n", @seed_words);
	open(my $fh, '>', "generated_seed.txt");
	print $fh $word_list;
	close $fh;
	my $sorted_list = `cat generated_seed.txt | sort | uniq`;
	open(my $fh2, '>', "generated_seed.txt");
	print $fh2 $sorted_list;
	close $fh2;

	exit 0;
}

foreach my $word ( 1..$length ) {
	push(@words, get_word());
}

my $output = "";
foreach my $word (@words){
	if ( ! defined $word || $word eq "") {
		next; 
	}
	$output = $output . $word . " ";
}

print "$output\n";