Generate random passwords? : Getopt « System Functions « Perl






  1. Perl
  2. System Functions
  3. Getopt

Generate random passwords?

      

    #!/usr/local/bin/perl -w
    use Getopt::Long;
    GetOptions ('l|length=i');
    my $length = $opt_l || 8;
    my $password = "";
    my $x = 0;

    srand (time|$$);

    for ($x=0; $x < $length; $x++){
        my $intval = 50;
        $password .= sprintf ("%c", $intval);
    }

    print "Password $password \n";








Related examples in the same category

1.Simple options
2.GetOptions("file=s" => \$file);
3.Extract command-line switches with Getopt::Std
4.Perform consistent command line parsing
5.Process complex command lines
6.Read from a file
7.To turn a feature on or off. Use the exclamation point(!)
8.Using Getopt to deal with command line options
9.getopt('pMN');
10.If the value is optional, use a colon
11.For a text string value, use :s for an optional value or =s for a required value:
12.Check if a file exists
13.A double dash (--) by itself signals the end of the command-line switches.