briandfoy

# Here's the input, as an indented heredoc
my $string = <<~"_STRING";
	ABCD
	EFGH
	IJKL
	ABCD
	EFGH
	IJKL
	_STRING

briandfoy

#!perl
use v5.10;
use strict;

use POSIX;

my @zones = sort map { chomp; $_ } grep { /Time$/ } qx( tzutil /l );

my @new;
foreach my $zone ( @zones ) {

briandfoy

#!/usr/bin/perl

use v5.28;
use open qw(:std :utf8);
use utf8;

use Mojo::JSON qw(encode_json);

use Mojo::UserAgent;
use Mojo::Util qw(dumper trim);

briandfoy

#!/usr/bin/perl
# https://gist.github.com/briandfoy/f0f9405dda27aafd90ee79efb1ffa139

=head1 NAME

=head1 SYNOPSIS

	# first, get your royalty report from
	# https://leanpub.com/u/USER/generate_all_royalties_csv
	# download that somewhere

briandfoy

#!/Users/brian/bin/perls/perl5.28.0
use v5.28;
use utf8;
use strict;
use warnings;

use File::Path qw(make_path);
use File::Spec::Functions;
use IO::Interactive qw(interactive);
use Mojo::Useragent;

briandfoy

$ bmt licenses
MyCPAN-Indexer artistic_2
	Archive-Extract-Libarchive perl_5
		File-Slurp perl_5
		Object-Tiny perl_5
		Path-Class perl_5
	Archive-Zip perl_5
	CPAN-Checksums perl_5
		Compress-Bzip2 perl_5
		Data-Compare artistic_1, gpl_2

briandfoy

#!perl
use v5.26;

my %rt_to_github = map { chomp; split /,/ } <DATA>;

foreach my $arg ( @ARGV ) {
	unless( exists $rt_to_github{$arg} ) {
		say "No mapping for RT #$arg\n";
		next;
		}

briandfoy

#!/usr/bin/perl
use v5.26;
use experimental qw(signatures);

=head1 NAME

zamzar_epub_to_mobi - use Zamzar to convert an ePub to Mobi

=head1 SYNOPSIS

briandfoy

#!perl
use v5.10;
use experimental qw(signatures);

use File::Path qw(make_path);
use File::Spec::Functions;
use Mojo::DOM;
use Mojo::URL;
use Mojo::Util qw(dumper);
use XML::LibXML;

briandfoy

theme = perl7

[TestingAndDebugging::RequireUseStrict]
add_themes = perl7

[TestingAndDebugging::RequireUseWarnings]
add_themes = perl7

[InputOutput::ProhibitBarewordFileHandles]
add_themes = perl7