Result:
found more than 574 distributions - search limited to the first 2001 files matching your query
( run in 2.338 )
App-bcrypt
view release on metacpan or search on metacpan
script/bcrypt view on Meta::CPAN
=item * C<--cost>, C<-c> - the cost factor, which should be between 5 and 31, inclusively. This is the exponent for a power of two, so things get slow quickly (default: 12)
=item * C<--debug>, C<-d> - turn on debugging (default: off)
=item * C<--eol>, C<-e> - the string to add to the end of the hash on output (default: newline)
=item * C<--help>, C<-h> - show the documentation and exit. This takes precedence over all other options besides C<--update-modules> and C<--version>.
=item * C<--no-eol>, C<-n> - do not add anything to the end of the line (default: off)
=item * C<--password>, C<-p> - the password to hash or to compare. But, it's probably better to send it through standard input if you are using this as a command-line program and not a library.
=item * C<--quiet>, C<-q> - suppress information messages (default: off)
script/bcrypt view on Meta::CPAN
$ perl script/bcrypt -q
Hello World
$2b$12$IqR8.HcodAzvngql3qDw2upnUrjj9HSxutWCgPrUsga0gm7AvTOUu
By default, there's a newline at the end of the hash because it's a normal
output line, but you can remove that with C<--no-eol>. First, normally:
$ bcrypt -q | hexdump -C
Hello World
00000000 24 32 62 24 31 32 24 35 4b 63 68 65 4f 6d 65 48 |$2b$12$5KcheOmeH|
00000010 61 67 52 62 77 2f 4a 57 70 79 54 55 65 73 70 39 |agRbw/JWpyTUesp9|
script/bcrypt view on Meta::CPAN
00000030 6a 43 50 4a 7a 70 5a 38 39 47 58 65 0a |jCPJzpZ89GXe.|
0000003d
Now, notice the lack of the C<0a> at the end:
$ bcrypt -q --no-eol | hexdump -C
Hello World
00000000 24 32 62 24 31 32 24 4d 36 67 2e 54 64 7a 48 49 |$2b$12$M6g.TdzHI|
00000010 44 58 52 30 73 33 66 2f 66 57 74 74 4f 61 54 70 |DXR0s3f/fWttOaTp|
00000020 34 2f 7a 57 5a 47 63 44 76 56 63 45 6d 6a 49 4e |4/zWZGcDvVcEmjIN|
00000030 50 79 4c 79 41 74 48 62 71 56 79 75 |PyLyAtHbqVyu|
script/bcrypt view on Meta::CPAN
state $rc = require Crypt::Bcrypt;
my $hashed = Crypt::Bcrypt::bcrypt( $processed_args->@{qw(password type cost salt)} );
local $\ = do {
if( $processed_args->{'no-eol'} ) { undef }
elsif( $processed_args->{'eol'} ) { $processed_args->{'eol'} }
else { "\n" }
};
print $hashed;
return EX_SUCCESS;
}
sub _defaults () {
my %hash = (
'no-eol' => $ENV{BCRYPT_NO_EOL} // 0,
cost => $ENV{BCRYPT_COST} // 12,
debug => $ENV{BCRYPT_DEBUG} // 0,
eol => $ENV{BCRYPT_EOL} // "\n",
quiet => $ENV{BCRYPT_QUIET} // 0,
salt => _default_salt(),
type => lc( $ENV{BCRYPT_TYPE} // '2b' ),
);
script/bcrypt view on Meta::CPAN
my %opts = _defaults()->%*;
my %opts_description = (
'compare=s' => \ $opts{'compare'},
'cost|c=i' => \ $opts{'cost'},
'debug|d' => \ $opts{'debug'},
'eol|e=s' => \ $opts{'eol'},
'help|h' => \ $opts{'help'},
'no-eol|n' => \ $opts{'no-eol'},
'password|p=s' => \ $opts{'password'},
'quiet|q' => \ $opts{'quiet'},
'salt|s=s' => \ $opts{'salt'},
'type|t=s' => \ $opts{'type'},
'update-modules' => \ $opts{'update-modules'},
App-colourhexdump
view release on metacpan or search on metacpan
t/00-compile/lib_App_colourhexdump_pm.t
t/00-report-prereqs.dd
t/00-report-prereqs.t
weaver.ini
xt/author/critic.t
xt/author/eol.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/release/cpan-changes.t
xt/release/distmeta.t
xt/release/kwalitee.t
App-combinesheets
view release on metacpan or search on metacpan
t/data/furniture.tsv
t/data/houses.tsv
t/data/paintings.tsv
t/data/persons.tsv
t/data/things.cfg
t/release-eol.t
t/release-no-tabs.t
t/release-pod-syntax.t
App-contenttype
view release on metacpan or search on metacpan
script/contenttype view on Meta::CPAN
audio/prs.sid sid
audio/qcelp qcp
audio/smv smv
audio/vnd.audiokoz koz
audio/vnd.dece.audio uva
audio/vnd.digital-winds eol
audio/vnd.dra dra
audio/vnd.dts dts
audio/vnd.dts.hd dtshd
audio/vnd.everad.plj plj
audio/vnd.lucent.voice lvp
App-cpangitify
view release on metacpan or search on metacpan
t/00_diag.t
t/app_cpangitify.t
t/app_cpangitify__change_name.t
t/lib/Test2/Plugin/HTTPTinyFile.pm
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
App-cpanm-meta-checker
view release on metacpan or search on metacpan
t/00-compile/lib_App_cpanm_meta_checker_pm.t
t/00-report-prereqs.dd
t/00-report-prereqs.t
weaver.ini
xt/author/critic.t
xt/author/eol.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/release/cpan-changes.t
xt/release/distmeta.t
xt/release/kwalitee.t
App-cpanoutdated-fresh
view release on metacpan or search on metacpan
t/attributes.t
t/constructors.t
t/fresh_checker.t
weaver.ini
xt/author/critic.t
xt/author/eol.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/release/cpan-changes.t
xt/release/distmeta.t
xt/release/kwalitee.t
App-cpantested
view release on metacpan or search on metacpan
perlcritic.rc
t/00-compile.t
t/00-load.t
t/10-selfcheck.t
t/author-critic.t
t/author-test-eol.t
t/dists
t/release-cpan-changes.t
t/release-dist-manifest.t
t/release-distmeta.t
t/release-kwalitee.t
App-csv2sqlite
view release on metacpan or search on metacpan
t/lib/C2STests.pm
t/module.t
t/script.t
xt/author/critic.t
xt/author/pod-spell.t
xt/author/test-eol.t
xt/release/changes_has_content.t
xt/release/cpan-changes.t
xt/release/dist-manifest.t
xt/release/distmeta.t
xt/release/kwalitee.t
App-csvtool
view release on metacpan or search on metacpan
bin/csvtool view on Meta::CPAN
push @args, sub { $csv->getline( $fh ) };
}
}
if( $toolpkg->can( "WANT_OUTPUT" ) and $toolpkg->WANT_OUTPUT ) {
my $csv = new_csv( eol => $/ );
push @args, sub { $csv->print( \*STDOUT, $_[0] ) or die "Cannot print - $!" };
}
push @args, @ARGV;
App-datasection
view release on metacpan or search on metacpan
lib/App/datasection/Command/insert.pm
perlcriticrc
t/00_diag.t
t/app_datasection.t
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/pod_spelling_system.t
App-diceware
view release on metacpan or search on metacpan
share/wordlist_en.tsv view on Meta::CPAN
21351 credible
21352 credibly
21353 credit
21354 creed
21355 creme
21356 creole
21361 crepe
21362 crept
21363 crescent
21364 crested
21365 cresting
share/wordlist_en.tsv view on Meta::CPAN
32143 gentile
32144 gentleman
32145 gently
32146 gents
32151 geography
32152 geologic
32153 geologist
32154 geology
32155 geometric
32156 geometry
32161 geranium
32162 gerbil
32163 geriatric
share/wordlist_en.tsv view on Meta::CPAN
34351 ideally
34352 idealness
34353 identical
34354 identify
34355 identity
34356 ideology
34361 idiocy
34362 idiom
34363 idly
34364 igloo
34365 ignition
share/wordlist_en.tsv view on Meta::CPAN
62126 theater
62131 theatrics
62132 thee
62133 theft
62134 theme
62135 theology
62136 theorize
62141 thermal
62142 thermos
62143 thesaurus
62144 these
App-digitdemog
view release on metacpan or search on metacpan
my %S2 ; # $S2{$v}{$pos} = "行番å·+行番å·+...行番å·+" (Lã¨ã™ã‚‹); $vãŒå‡ºç¾ã—ãŸæ¡$posã«å¯¾å¿œã™ã‚‹è¡Œç•ªå·ã‚’è“„ãˆã‚‹ã€‚
my %S3 ; # @ { $S3{ F } } ã«ã‚ˆã£ã¦ã€åˆ†å‰²è¡¨ã§é »åº¦ F 回ç¾ã‚ŒãŸ 行番å·é›†åˆã®å€¤ L (%S2ã®æŒã¤å€¤)ã‚’å‚ç…§ã§ãるよã†ã«ã™ã‚‹ã€‚
my %mark ; # $mark{ L } ãŒãƒ”リオドをピリオド付ã‘る。 ( -. ã§ä½¿ã†ã€‚)
my %Gs ; # @{ $G { $v } { $pos } [ 0 or 1 ] } 㧠行ã®å…·ä½“ä¾‹ã‚’æ ¼ç´ã€‚ ( -g ã§ä½¿ã†ã€‚)
my $maxlen = 0 ; # æ–‡å—列ã®æœ€å¤§é•·
my $eol = "EOL" . int rand 8 ; # å„è¡Œã®çµ‚ã‚りを示ã™ã€‚## saikoro -g10,3 ã§ã„ã‚ã„ã‚試ã—ãŸã€‚
@e = map { decode_utf8 $_ } @e unless $optu0 ;
unshift @e , "$eol\$" ; # æ£è¦è¡¨ç¾ãƒ‘ターン群㫠$eol ã‚’ 最åˆã« è¿½åŠ ã€‚ # 「行末ã€ã¯é »åº¦ãŒå¤šã„ã®ã§æœ€åˆã«æŒã£ã¦ããŸã€‚
#push @e , "$eol\$" ; # æ£è¦è¡¨ç¾ãƒ‘ターン群㫠$eol ã‚’ æœ€å¾Œã« è¿½åŠ ã€‚# ã“ã“ã¯ã€unshift ã§ã‚‚ push ã§ã‚‚良ã„。
my @eqr ; # 「e ã‚’qrã•ã‚ŒãŸ ã€ã«ã‚ˆã‚Šå付ã‘ãŸã€‚
my @exu ; # 「eã«ãŠã„ã¦ã€ã‚¨ã‚¹ã‚±ãƒ¼ãƒ—(escape)ã—ã¦ãƒ¦ãƒ‹ã‚³ãƒ¼ãƒ‰(unicode)ã§è¡¨ã—ãŸéƒ¨åˆ†ãŒã‚ã‚‹ã€ã«ã‚ˆã‚Šå付ã‘ãŸ
for ( 0 .. $#e ) {
my $eout = $e[$_] =~ s/#.*$//r ; # æ£è¦è¡¨ç¾ã§ã€ã‚³ãƒ¡ãƒ³ãƒˆ#ã®éƒ¨åˆ†ã¯é™¤åŽ»ã™ã‚‹ã€‚
my @F = split /([[:^ascii:]])/o , $eout , 0 ; # パターンã§åˆ‡ã£ãŸæœ€å¾Œã¯ç©ºæ–‡å—列ãªã‚‰åˆ‡ã‚Šè½ã¨ã™ãŸã‚ã®0
next if $freq{$_} ++ && $o{1} ; # && ã®å‰å¾Œã®é †åºã«æ³¨æ„
s/\r$// unless $optw0 ;
$_ = decode_utf8 $_ unless $optu0 ;
# â–½ パターンã«æ–‡å—列を分解。
my @vvec = m/$piecePattern/go ;
push @vvec , $eol ; # å„行をãƒãƒ©ãƒãƒ©ã«ã—ãŸå¾Œã«ã€$eolを最後ã«è¿½åŠ 。
splice @vvec , $width, if defined $width ;
$maxlen = @vvec if $maxlen < @vvec ; # 最大長ã®ä¿ç®¡
for my $pos ( 0 .. $#vvec ) {
my $char = $vvec [ $pos ] ; # 実際ã®æ–‡å—(列)。 (パターンã«ã¯ã¾ã 分類ã—ã¦ã„ãªã„。)
my $v ; # ã©ã®ãƒ‘ターンã¾ãŸã¯æ–‡å—ã¨ã—ã¦èªè˜ã™ã‚‹ã‹ã€‚(分類ã•ã‚ŒãŸãƒ‘ターンãªã®ã§ã‚る。)
@example = map{ backslash $_ , q['] } @example unless 0 eq ($o{b}//'') ; # -b0ã®æŒ‡å®šãŒç„¡ã‘ã‚Œã°ã€æ”¹è¡Œãªã©ã®æ–‡å—をエスケープã™ã‚‹ã€‚
my $subtotal = sum0 @out ; # ãã®æ–‡å—ã®å‡ºç¾å›žæ•° -- @out ã‚’ã•ã‚‰ã«åŠ å·¥ã™ã‚‹å‰ã«ã“ã“ã§å–得。
next until y_filter ( $subtotal ) ;
do { $out[$_] .= $mark{ $S2{$v}{$_} // '' } // '' if $out[$_] } for 0 .. $#out ; # æ•°å—ã®å¾Œã‚ã«ãƒ”リオド付åŠ
@out = map { $_ eq 0 ? $o{0} : $_ } @out if defined $o{0} ; # é »åº¦å€¤ãŒã‚¼ãƒã®å ´åˆã®ç½®æ›
my $code = do { my $c = substr $v,1,1 ; $v eq "$eol\$" ? 'end' : $vcate{$v} ? '---' : $ucd -> ($c) } ; # æ–‡å—コードå–得。$vã®åŠ å·¥å‰ã«ã“ã“ã§å‡¦ç†ã€‚
$v = $o{'$'} if $v eq "$eol\$" ;
$v = backslash $v , q["] ;
push @out , (YELLOW BOLD $v) , $code , (YELLOW $subtotal) ;
push @out, join $sep , @example ;
say join "\t" , @out ;
}
App-finddo
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
#
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
App-genconf
view release on metacpan or search on metacpan
README
README.pod
bin/genconf
dist.ini
lib/App/genconf.pm
t/release-eol.t
t/release-pod-syntax.t
App-genpw-base56
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
#
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
App-genpw-base58
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
#
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
App-genpw-base64
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
#
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
App-genpw-id
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
## -i to -o
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
App-genpw-ind
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
## -i to -o
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
App-geoip
view release on metacpan or search on metacpan
lib/App/geoip.pm view on Meta::CPAN
? Data::Peek::DDumper ({ $label => $ref })
: Data::Dumper->Dump ([$ref], [$label]);
} # _dump
# Based on GeoIP2 CSV databases
# City: http://geolite.maxmind.com/download/geoip/database/GeoLite2-City-CSV.zip
# Country http://geolite.maxmind.com/download/geoip/database/GeoLite2-Country-CSV.zip
# ASN http://geolite.maxmind.com/download/geoip/database/GeoLite2-ASN-CSV.zip
my $idx_type = $conf{dsn} =~ m/:Pg/ ? "using btree" : "";
my $truncate = $conf{dsn} =~ m/:SQLite/ ? "delete from" : "truncate table";
unless (grep m/\b country \b/ix => $dbh->tables (undef, undef, undef, undef)) {
lib/App/geoip.pm view on Meta::CPAN
default value : Undefined
As downloads are only allowed/possible using a valid MaxMind account, you need
to provide a valid license key in your configuration file. If you do not have
an account, you can sign up L<here|https://www.maxmind.com/en/geolite2/signup>.
=back
=head1 DATABASE
lib/App/geoip.pm view on Meta::CPAN
L<Geo::Coder::HostIP>, L<Geo::IP>, L<Geo::IP2Location>, L<Geo::IP2Proxy>,
L<Geo::IP6>, L<Geo::IPfree>, L<Geo::IP::RU::IpGeoBase>, L<IP::Country>,
L<IP::Country::DB_File>, L<IP::Country::DNSBL>, L<IP::Info>, L<IP::Location>,
L<IP::QQWry>, L<IP::World>, L<Metabrik::Lookup::Iplocation>, L<Pcore::GeoIP>
L<IP::Geolocation::MMDB>
Check L<CPAN|https://metacpan.org/search?q=geoip> for more.
=head1 THANKS
lib/App/geoip.pm view on Meta::CPAN
=head1 COPYRIGHT AND LICENSE
The GeoLite2 end-user license agreement, which incorporates components of the
Creative Commons Attribution-ShareAlike 4.0 International License 1) can be found
L<here|https://www.maxmind.com/en/geolite2/eula> 2). The attribution requirement
may be met by including the following in all advertising and documentation
mentioning features of or use of this database.
This tool uses, but does not include, the GeoLite2 data created by MaxMind,
available from [http://www.maxmind.com](http://www.maxmind.com).
lib/App/geoip.pm view on Meta::CPAN
This library is free software; you can redistribute and/or modify it under
the same terms as Perl itself.
See L<here|https://opensource.org/licenses/Artistic-2.0> 3).
1) https://creativecommons.org/licenses/by-sa/4.0/
2) https://www.maxmind.com/en/geolite2/eula
3) https://opensource.org/licenses/Artistic-2.0
=for elvis
:ex:se gw=75|color guide #ff0000:
App-get_flash_videos
view release on metacpan or search on metacpan
lib/FlashVideo/Site/Megavideo.pm view on Meta::CPAN
$v = $1;
} else {
die "Couldn't extract video ID from page";
}
my $xml = "http://www.$site/xml/videolink.php?v=$v";
$browser->get($xml);
die "Unable to get video infomation" unless $browser->response->is_success;
my $k1 = ($browser->content =~ /k1="(\d+)/)[0];
App-gimpgitbuild
view release on metacpan or search on metacpan
lib/App/gimpgitbuild/Command/cleanbuild.pm
lib/App/gimpgitbuild/Command/env.pm
lib/App/gimpgitbuild/Command/runenv.pm
t/00-compile.t
weaver.ini
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/author/tidyall.t
xt/release/cpan-changes.t
App-hr
view release on metacpan or search on metacpan
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
## -i to -o
#my @i_to_o = (qw/
# alveoli
# ghetti
# manifesti
# ostinati
# pianissimi
# scenarii
App-intrunningsum
view release on metacpan or search on metacpan
t/00-compile.t
t/data/samples/bigints.txt
t/data/samples/simple.txt
t/test-exe.t
weaver.ini
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/author/tidyall.t
xt/release/cpan-changes.t
App-intsum
view release on metacpan or search on metacpan
t/00-compile.t
t/data/samples/bigints.txt
t/data/samples/simple.txt
t/test-exe.t
weaver.ini
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-coverage.t
xt/author/pod-syntax.t
xt/author/tidyall.t
xt/release/cpan-changes.t
App-livehttperf
view release on metacpan or search on metacpan
Makefile.PL
README
bin/livehttperf
lib/App/livehttperf.pm
t/00-compile.t
xt/release/eol.t
xt/release/kwalitee.t
xt/release/no-tabs.t
xt/release/pod-coverage.t
xt/release/pod-syntax.t
xt/release/portability.t
App-lsiommu
view release on metacpan or search on metacpan
lib/App/lsiommu.pm
t/00-report-prereqs.dd
t/00-report-prereqs.t
t/01-use.t
xt/author/00-compile.t
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-syntax.t
xt/author/test-version.t
xt/release/minimum-version.t
App-lsnic
view release on metacpan or search on metacpan
t/00-report-prereqs.dd
t/00-report-prereqs.t
t/01-use.t
xt/author/00-compile.t
xt/author/critic.t
xt/author/eol.t
xt/author/no-tabs.t
xt/author/pod-syntax.t
xt/author/test-version.t
xt/release/minimum-version.t
App-makefilepl2cpanfile
view release on metacpan or search on metacpan
MANIFEST This list of files
README.md
t/basics.t
t/develop_block.t
t/eof.t
t/eol.t
t/preserve.t
t/verify_prereqs.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
( run in 2.338 seconds using v1.01-cache-2.11-cpan-8f98c5d2c55 )