Browse Source

Update seed with saints+lords

spesk1 3 years ago
parent
commit
f30d033424
3 changed files with 339 additions and 0 deletions
  1. 5 0
      name_gen.pl
  2. 18 0
      parse.pl
  3. 316 0
      seed_data.txt

+ 5 - 0
name_gen.pl

@@ -82,6 +82,11 @@ if ( defined $ARGV[1] && $ARGV[1] eq "--gen-seed" ) {
 	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;
 }
 

+ 18 - 0
parse.pl

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+# Scratch pad for parsing webpages for lists
+# of different words/names, for the seed file
+
+my @page = split("\n", `cat saints.html`);
+
+foreach my $line ( @page ) {
+	if ( $line =~ m/<td data-sort-value=.*<a\ href=.*title="(.*)"/ ) {
+		my $line1 = $1;
+		if ( $line1 =~ m/^([a-zA-z0-9\ ,-]{1,})/ ) {
+			print "$1\n";
+		}
+	}
+}

File diff suppressed because it is too large
+ 316 - 0
seed_data.txt


Some files were not shown because too many files changed in this diff