This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
perl:codes:namegenerator [2015/02/11 15:32] – lunetikk | perl:codes:namegenerator [2018/12/20 17:45] (current) – Discussion status changed lunetikk | ||
---|---|---|---|
Line 32: | Line 32: | ||
{ | { | ||
- | use Term:: | + | use Term:: |
- | $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 | + | |
- | 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); | + | $zahl=int(rand($elementevornamem)+1); |
+ | | ||
+ | |||
+ | } | ||
- | } | + | 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); | + | $zahl1=int(rand($elementenachname)+1); |
+ | | ||
- | } | + | |
} | } | ||
else { | else { | ||
- | use Term:: | + | use Term:: |
- | $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 | + | |
- | 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); | + | $zahl=int(rand($elementevornamef)+1); |
+ | | ||
- | } | + | |
- | 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); | + | $zahl1=int(rand($elementenachname)+1); |
+ | | ||
- | } | + | |
} | } | ||
- | print $vorname[$zahl] | + | print $firstnameoutput |
ReadMode 0; # Reset tty mode before exiting | ReadMode 0; # Reset tty mode before exiting | ||
</ | </ | ||
+ | |||
+ | \\ | ||
+ | \\ | ||
+ | ~~DISCUSSION: |