1 #!/usr/bin/perl

     2 # $Id$

     3 # (c)Peter Gervai, 2002; Released under GPLv2 + CC_BY-SA-2.0

     4 #

     5 # jelszogenerator, 2002/04/08

     6 #

     7 

     8 if( $ARGV[0] =~ /shutup/i ) { $shutup = 1; $num=1; } else { $num = 6; }

     9 

    10 $vowel='aeiou';

    11 #$cons='bcdfghjklmnpqrstvwxyz';

    12  $cons='bcdfghjklmnprstvxyz';

    13 

    14 $vlen=length($vowel);

    15 $clen=length($cons);

    16 

    17 

    18 $longsyl=20; # percent

    19 $sylnum=4 + rand(3);

    20 

    21 print "$num tok jo jelszo: " unless $shutup;

    22 

    23 

    24 

    25 for (1..$num) {

    26     for my $i (1..$sylnum) {

    27         print substr($cons,rand($clen),1);

    28         print substr($vowel,rand($vlen),1);

    29         print substr($cons,rand($clen),1) if $longsyl > rand(100);

    30         #print "-";

    31     }

    32     print "  " unless $shutup;

    33 }

    34 

    35 print "\n";

    36 print "\n" unless $shutup;