# $Id: pwgen.pl,v 72a196c63f31 2020/12/09 14:24:36 grin $

# jelszogenerator, 2002/04/08; 2016/11/09; 2020/12/09

use Getopt::Long;

my $help;

my $words=5;

my $syllab=4;

my $dash;

my $dashlen=2;

my $dashchr='-';

my $longsyl=20;

GetOptions(

  "help" 	=> \&help,

  "words=i" 	=> \$words,

  "syllab=i"	=> \$syllab,

  "dash"	=> \$dash,

  "dashlen=i"	=> \$dashlen,

  "longsyl=i"	=> \$longsyl,

  "dashchr=s"	=> \$dashchr,

) or &help;

for (1..$words) {

    my $dash_count=0;

    my $sylnum=$syllab + rand(3);

        print $dashchr  unless !$dash or ++$dash_count % $dashlen  or  $i>$sylnum-$dashlen;

    print "   ";

sub help {

    print "Usage:\n";

    print "  $0 [--help] [--words=$words] [--syllab=$syllab] [--longsyl=$longsyl] [--dash [--dashchr=$dashchr] [--dashlen=$dashlen]]\n";

    print "      words:   how many passwords to display\n";

    print "      syllab:  how many syllables in a word\n";

    print "      dash:    use dash between syllables\n";

    print "      dashlen: use dash between every N syllable\n";

    print "      longsyl: long syllable probability (percent)\n";

    print "      dashchr: character to use instead of '-'\n";

    exit;

}