Korean Names /* John's D&D Utilities * Copyright (C) 2001-2009, John Evans * Released under GPLv3. */ require("utils.php"); start_html("Korean Names"); $Data = fopen("./data/names/korean", "r"); if (!$Data) { abort("Error reading datafile!"); } ### Fetch Male Names while (!feof($Data)) { $line = chop(fgets($Data, 255)); if ($line == ":") { break; } else { $male[] = $line; } } ### Fetch Female Names while (!feof($Data)) { $line = chop(fgets($Data, 255)); if ($line == ":") { break; } else { $female[] = $line; } } ### Fetch Family Names while (!feof($Data)) { $line = chop(fgets($Data, 255)); $family[] = $line; } fclose($Data); ?> Male Names Female Names for ($x = 1; $x <= 20; ++$x) { print(" \n"); printf(" %s %s\n", get_random($family), get_random($male)); print (" \n"); printf(" %s %s\n", get_random($family), get_random($male)); print (" \n"); printf(" %s %s\n", get_random($family), get_random($female)); print (" \n"); printf(" %s %s\n", get_random($family), get_random($female)); print(" \n"); } ?> Generate More Korean Names end_html(); ?>
Generate More Korean Names