Site Tools


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
Last revisionBoth sides next revision
perl:codes:namegenerator [2015/02/11 15:35] lunetikkperl:codes:namegenerator [2017/03/01 12:50] – external edit 127.0.0.1
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~~
perl/codes/namegenerator.txt · Last modified: 2018/12/20 17:45 by lunetikk