Differences

This shows you the differences between two versions of the page.

--- perl:codes:namegenerator [2015/02/11 15:32] – lunetikk
+++ perl:codes:namegenerator [2017/03/01 12:50] – external edit 127.0.0.1
@@ Line 32: / Line 32: @@
 {
-use Term::ReadKey;
+   use Term::ReadKey;
-$elementevornamem = @vornamem; #get number of elements from array firstname
+   $elementevornamem = @vornamem; #get number of elements from array firstname
-$elementenachname = @nachname; #get number of elements from array lastname
+   $elementenachname = @nachname; #get number of elements from array lastname
-ReadMode 4; # Turn off controls keys
+   ReadMode 4; # Turn off controls keys
-while (not defined ($key = ReadKey(-1))) {
+      while (not defined ($key = ReadKey(-1))) {
-$zahl=int(rand($elementevornamem)+1); #generate number
+         $zahl=int(rand($elementevornamem)+1); #generate number
+         $firstnameoutput = $vornamem[$zahl];
+      }
-}
+   ReadMode 4; # Turn off controls keys
+      while (not defined ($key = ReadKey(-1))) {
-ReadMode 4; # Turn off controls keys
-while (not defined ($key = ReadKey(-1))) {
-$zahl1=int(rand($elementenachname)+1); #generate another number
+         $zahl1=int(rand($elementenachname)+1); #generate another number
+         $lastnameoutput = $nachname[$zahl1];
-}
+      }
 }
 else {
-use Term::ReadKey;
+   use Term::ReadKey;
-$elementevornamef = @vornamef; #get number of elements from array firstname
+   $elementevornamef = @vornamef; #get number of elements from array firstname
-$elementenachname = @nachname; #get number of elements from array lastname
+   $elementenachname = @nachname; #get number of elements from array lastname
-ReadMode 4; # Turn off controls keys
+   ReadMode 4; # Turn off controls keys
-while (not defined ($key = ReadKey(-1))) {
+      while (not defined ($key = ReadKey(-1))) {
-$zahl=int(rand($elementevornamef)+1); #generate number
+         $zahl=int(rand($elementevornamef)+1); #generate number
+         $firstnameoutput = $vornamef[$zahl];
-}
+      }
-ReadMode 4; # Turn off controls keys
+   ReadMode 4; # Turn off controls keys
-while (not defined ($key = ReadKey(-1))) {
+      while (not defined ($key = ReadKey(-1))) {
-$zahl1=int(rand($elementenachname)+1); #generate another number
+         $zahl1=int(rand($elementenachname)+1); #generate another number
+         $lastnameoutput = $nachname[$zahl1];
-}
+      }
 }
-print $vorname[$zahl] . " " . $nachname[$zahl1]; #print the first+lastname
+print $firstnameoutput . " " . $lastnameoutput; #print the first+lastname
 ReadMode 0; # Reset tty mode before exiting
 </code>
+\\
+\\
+~~DISCUSSION~~

Lunetikk's IT Wiki

User Tools

Site Tools

Differences

Page Tools