perl implementatino

UVicGameDev · Jun 16, 2013 · 40f05e4 · 40f05e4
1 parent 527bde5
commit 40f05e4
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/generate_theme.pl b/generate_theme.pl
@@ -0,0 +1,14 @@
+open(my $VERBS, "<", "verbs.txt") 
+    or die "cannot open < verbs.txt: $!";
+open(my $NOUNS, "<", "nouns.txt") 
+    or die "cannot open < nouns.txt: $!";
+
+@verbs = <$VERBS>; chomp @verbs;
+@nouns = <$NOUNS>; chomp @nouns;
+
+for ($count = 1; $count < 100; $count++) {
+    $verb = ucfirst $verbs[int rand $#verbs];
+    $noun = ucfirst $nouns[int rand $#nouns];
+    print "$verb the $noun\n";
+}
+