App-genpw-id

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

         %l   Random Latin letter (A-Z, a-z)
         %d   Random digit (0-9)
         %h   Random hexdigit (0-9a-f)
         %a   Random letter/digit (Alphanum) (A-Z, a-z, 0-9; combination of %l and %d)
         %s   Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
         %x   Random letter/digit/ASCII symbol (combination of %a and %s)
         %m   Base64 character (A-Z, a-z, 0-9, +, /)
         %b   Base58 character (A-Z, a-z, 0-9 minus IOl0)
         %B   Base56 character (A-Z, a-z, 0-9 minus IOol01)
         %%   A literal percent sign
         %w   Random word

    *   wordlists => *array[str]*

        Select one or more wordlist modules.

    Returns an enveloped result (an array).

    First element (status) is an integer containing HTTP status code (200
    means OK, 4xx caller error, 5xx function error). Second element (msg) is

lib/App/genpw/id.pm  view on Meta::CPAN

 %l   Random Latin letter (A-Z, a-z)
 %d   Random digit (0-9)
 %h   Random hexdigit (0-9a-f)
 %a   Random letter/digit (Alphanum) (A-Z, a-z, 0-9; combination of %l and %d)
 %s   Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
 %x   Random letter/digit/ASCII symbol (combination of %a and %s)
 %m   Base64 character (A-Z, a-z, 0-9, +, /)
 %b   Base58 character (A-Z, a-z, 0-9 minus IOl0)
 %B   Base56 character (A-Z, a-z, 0-9 minus IOol01)
 %%   A literal percent sign
 %w   Random word

=item * B<wordlists> => I<array[str]>

Select one or more wordlist modules.


=back

Returns an enveloped result (an array).

script/_genpw-id  view on Meta::CPAN

# ABSTRACT: Completer script for genpw-id

use 5.010;
use strict;
use warnings;

die "Please run this script under shell completion\n" unless $ENV{COMP_LINE} || $ENV{COMMAND_LINE};

my $args = {program_name=>"genpw-id",read_config=>0,read_env=>0,skip_format=>undef,subcommands=>undef,url=>"/App/genpw/id/genpw"};

my $meta = {_orig_args_as=>undef,_orig_result_naked=>undef,args=>{action=>{cmdline_aliases=>{list_patterns=>{code=>sub{package App::genpw;use warnings;use strict;no feature;use feature ':5.10';$_[0]{'action'} = 'list-patterns'},is_flag=>1,summary=>"S...

my $sc_metas = {};

my $copts = {format=>{default=>undef,getopt=>"format=s",handler=>sub{package Perinci::CmdLine::Base;use warnings;use strict;no feature;use feature ':5.10';my($go, $val, $r) = @_;$$r{'format'} = $val},is_settable_via_config=>1,schema=>["str*","in",["t...

my $r = {};

# get words
my $shell;
my ($words, $cword);

script/genpw-id  view on Meta::CPAN

#!perl

### begin code_after_shebang
# Note: This script is a CLI for Riap function /App/genpw/id/genpw
# and generated automatically using Perinci::CmdLine::Gen version 0.496

### end code_after_shebang
# PERICMD_INLINE_SCRIPT: {"code_after_shebang":"...","config_dirs":null,"config_filename":"genpw-id.conf","env_name":"GENPW_ID_OPT","include":null,"log":null,"pack_deps":1,"pod":0,"read_config":1,"read_env":1,"script_name":"genpw-id","script_summary"...

my $_pci_metas = {""=>{args=>{action=>{cmdline_aliases=>{list_patterns=>{code=>sub{"DUMMY"},is_flag=>1,summary=>"Shortcut for --action=list-patterns"}},default=>"gen",schema=>["str",{in=>["gen","list-patterns"],req=>1},{}]},case=>{cmdline_aliases=>{L...

# This script is generated by Perinci::CmdLine::Inline version 0.550 on Thu May 21 17:33:04 2020.

# Rinci metadata taken from these modules: App::genpw::id (no version)

# You probably should not manually edit this file.

our $DATE = '2020-05-21'; # DATE
our $VERSION = '0.006'; # VERSION
# PODNAME: genpw-id

script/genpw-id  view on Meta::CPAN

    %l   Random Latin letter (A-Z, a-z)
    %d   Random digit (0-9)
    %h   Random hexdigit (0-9a-f)
    %a   Random letter/digit (Alphanum) (A-Z, a-z, 0-9; combination of %l and %d)
    %s   Random ASCII symbol, e.g. "-" (dash), "_" (underscore), etc.
    %x   Random letter/digit/ASCII symbol (combination of %a and %s)
    %m   Base64 character (A-Z, a-z, 0-9, +, /)
    %b   Base58 character (A-Z, a-z, 0-9 minus IOl0)
    %B   Base56 character (A-Z, a-z, 0-9 minus IOol01)
    %%   A literal percent sign
    %w   Random word


Can be specified multiple times.

=item B<--patterns-json>=I<s>

Pattern(s) to use (JSON-encoded).

See C<--pattern>.

script/genpw-id  view on Meta::CPAN

#                                $t[5]+1900, $t[4]+1, $t[3]);
#                        }
#                    }
#                } elsif ($fmt_name eq 'boolstr') {
#                    $row->[$j] = $row->[$j] ? "yes" : "no";
#                } elsif ($fmt_name eq 'sci2dec') {
#                    if ($row->[$j] =~ /\A(?:[+-]?)(?:\d+\.|\d*\.(\d+))[eE]([+-]?\d+)\z/) {
#                        my $n = length($1 || "") - $2; $n = 0 if $n < 0;
#                        $row->[$j] = sprintf("%.${n}f", $row->[$j]);
#                    }
#                } elsif ($fmt_name eq 'percent') {
#                    my $fmt = $fmt_opts->{sprintf} // '%.2f%%';
#                    $row->[$j] = sprintf($fmt, $row->[$j] * 100);
#                } elsif ($fmt_name eq 'number') {
#                    require Number::Format::BigFloat;
#                    $row->[$j] = Number::Format::BigFloat::format_number(
#                        $row->[$j], {
#                            thousands_sep  => $fmt_opts->{thousands_sep} // ',',
#                            decimal_point  => $fmt_opts->{decimal_point} // '.',
#                            decimal_digits => $fmt_opts->{precision} // 0,
#                            # XXX decimal_fill