Lunetikk's IT Wiki

User Tools

Site Tools

You are here: start » perl » codes » namegenerator
Trace:
perl:codes:namegenerator

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
perl:codes:namegenerator [2015/02/11 15:35] – lunetikkperl:codes:namegenerator [2018/12/20 17:45] (current) – Discussion status changed lunetikk
Line 41: Line 41:
  
          $zahl=int(rand($elementevornamem)+1); #generate number          $zahl=int(rand($elementevornamem)+1); #generate number
 +         $firstnameoutput = $vornamem[$zahl]; 
 +         
       }       }
  
Line 48: Line 49:
  
          $zahl1=int(rand($elementenachname)+1); #generate another number          $zahl1=int(rand($elementenachname)+1); #generate another number
 +         $lastnameoutput = $nachname[$zahl1];
  
       }       }
Line 63: Line 65:
  
          $zahl=int(rand($elementevornamef)+1); #generate number          $zahl=int(rand($elementevornamef)+1); #generate number
 +         $firstnameoutput = $vornamef[$zahl];
  
       }       }
Line 70: Line 73:
  
          $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 ReadMode 0; # Reset tty mode before exiting
 </code> </code>
 +
 +\\
 +\\
 +~~DISCUSSION:closed~~
perl/codes/namegenerator.1423665350.txt.gz · Last modified: 2017/03/01 12:50 (external edit)

Page Tools

Impressum Datenschutz
Except where otherwise noted, content on this wiki is licensed under the following license: Public Domain
Public Domain Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki