RT-CLI: https://rt.perl.org/rt-cli.html
Doc: http://requesttracker.wikia.com/wiki/CLI
$ rt-cli shell
rt> rt ls "Requestor like 'dolmen@cpan.org'"
rt> exit
$_REPL->load_plugin($_) for qw( | |
History Colors | |
FancyPrompt Refresh | |
Interrupt OutputCache | |
DDC Nopaste | |
CompletionDriver::Keywords | |
CompletionDriver::LexEnv | |
CompletionDriver::Methods | |
CompletionDriver::INC |
#! /usr/bin/env zsh | |
dancer_pid= | |
dancer () { | |
perl bin/dancer & | |
dancer_pid=$! | |
} | |
kill_dancer () { kill $dancer_pid } | |
restart_dancer () { kill_dancer && dancer } | |
changes_in_source_tree () {inotifywait -r -e modify --exclude ".*swp" . } |
# | |
# Used to calculate the checksum | |
# http://fr.wikipedia.org/wiki/Relev%C3%A9_d'identit%C3%A9_op%C3%A9rateur | |
# | |
exports.calcChksm = (oo, q, rrrrrr, notel) -> | |
concatenation = "#{oo}#{q}#{rrrrrr}#{notel}" | |
ordre = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+" | |
a = b = c = 0 | |
for i in concatenation |
perl -MExtUtils::Installed "-Esay for ExtUtils::Installed->modules" > perl-modules.$(date +%Y-%m-%d).txt |
#!/usr/bin/env perl | |
use 5.010; | |
use strict; | |
use warnings; | |
use Getopt::Long; | |
my $CPAN_MIRROR = 'http://distrib-coffee.ipsl.jussieu.fr/pub/mirrors/cpan/'; | |
GetOptions("mirror=s" => \$CPAN_MIRROR); |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use 5.010; | |
use Mojo::UserAgent; | |
my $url = shift @ARGV or die "Usage: $0 metacpan_author_url"; | |
my $ua = Mojo::UserAgent->new; | |
my $dom = $ua->get($url)->res->dom; |
[ | |
{ | |
"priority" : "P4", | |
"name" : "Canonicalize path names before validating them", | |
"rule" : "", | |
"section" : "1", | |
"recommedation" : "1", | |
"level" : "L3", | |
"url" : "https://www.securecoding.cert.org/confluence/display/perl/IDS00-PL.+Canonicalize+path+names+before+validating+them", | |
"class" : "IDS00-PL", |
RT-CLI: https://rt.perl.org/rt-cli.html
Doc: http://requesttracker.wikia.com/wiki/CLI
$ rt-cli shell
rt> rt ls "Requestor like 'dolmen@cpan.org'"
rt> exit
use strict; | |
use constant_tiny; | |
use constant pi => 4 * atan2(1, 1); | |
use constant ponies => qw< | |
Twilight_Sparkle Fluttershy Pinkie_Pie AppleJack Rainbow_Dash Rarity | |
>; | |
use constant { |
# Get the module list
PROFILING=-d:TraceUse
# Profile with Devel::NYTProf
PROFILING=-d:NYTProf
Quick dzil launch hack:
perl $PROFILING -Ilib -MDist::Zilla -e '$Dist::Zilla::VERSION=$Dist::Zilla::Plugin::GatherDir::VERSION=4.300030; require "bin/dzil"' nop