brian d foy briandfoy

## net-ssh-perl-rt2github.pl
use v5.26;
use open qw(:std :utf8);

use Mojo::JSON qw(decode_json);
use Mojo::UserAgent;
use Mojo::Util qw(dumper);

# See another gist to create JSON https://gist.github.com/briandfoy/656a8986e2d998122e37486df1f1f999
@ARGV = '/Users/brian/Desktop/net-ssh-perl-rt.json';
my $raw = Mojo::File->new($ARGV[0])->slurp;

## rt_cpan_org_export
use v5.26;
use warnings;

=encoding utf8

=head1 NAME

rt_cpan_org_export - grab the tickets for an rt.cpan.org queue

=head1 SYNOPSIS

## make_pull_request_feed.pl
#!/Users/brian/bin/perl

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

use Mojo::UserAgent;
my $ua = Mojo::UserAgent->new;

my( $user, $repo ) = split m|/|, $ARGV[0];
my $url = $ARGV[1];

## selector_example.html
<html>
<head>
  <title>Selector example</title>
</head>

<body>

  <a href="https://stackoverflow.com/a/76537358/2766176">https://stackoverflow.com/a/76537358/2766176</a>

<div>

## grab-gist
#!/usr/bin/perl

=encoding utf8;

=head1 NAME

grab-gist - download all the files in a gist

=head1 SYNOPSIS

## history_counter.pl
#!/Users/brian/bin/perl
use v5.36;
use open qw(:std :utf8);
use utf8;

use File::Basename;
use Text::Shellwords qw(shellwords);

=head1 NAME

## mega_pr.sh
#!/bin/bash

# Don't judge me too harshly. This is a throwaway that I put
# together in 5 minutes to make a couple hundred pull requests
DEV=/Users/brian/Dev
target=.github/workflows/windows.yml
message="Update windows workflow"
echo MESSAGE $message
branch=windows-update
json=$(cat <<-END

## perl_features_by_version.pl
#!perl
use v5.36;
use feature ();

my( %Features, %Versions );
foreach my $key ( keys %feature::feature_bundle ) {
	next unless $key =~ /\A5\.\d[02468]\z/;
	$Versions{$key}++;
	foreach my $feature ( $feature::feature_bundle{$key}->@* ) {
		$Features{$feature}{$key}++;

## basic_auth
#!perl
use v5.10;
use utf8;

use Encode;
use I18N::Langinfo qw(langinfo CODESET);
use MIME::Base64;

my $codeset = langinfo(CODESET);

## gist:5a5b59c4b1e4a810d561cf03ba6b4bb9
# Here's the input, as an indented heredoc
my $string = <<~"_STRING";
	ABCD
	EFGH
	IJKL
	ABCD
	EFGH
	IJKL
	_STRING
	use v5.26;
	use open qw(:std :utf8);

	use Mojo::JSON qw(decode_json);
	use Mojo::UserAgent;
	use Mojo::Util qw(dumper);

	# See another gist to create JSON https://gist.github.com/briandfoy/656a8986e2d998122e37486df1f1f999
	@ARGV = '/Users/brian/Desktop/net-ssh-perl-rt.json';
	my $raw = Mojo::File->new($ARGV[0])->slurp;
	use v5.26;
	use warnings;

	=encoding utf8

	=head1 NAME

	rt_cpan_org_export - grab the tickets for an rt.cpan.org queue

	=head1 SYNOPSIS
	#!/Users/brian/bin/perl

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

	use Mojo::UserAgent;
	my $ua = Mojo::UserAgent->new;

	my( $user, $repo ) = split m\|/\|, $ARGV[0];
	my $url = $ARGV[1];
	<html>
	<head>
	<title>Selector example</title>
	</head>

	<body>

	<a href="https://stackoverflow.com/a/76537358/2766176">https://stackoverflow.com/a/76537358/2766176</a>

	<div>
	#!/usr/bin/perl

	=encoding utf8;

	=head1 NAME

	grab-gist - download all the files in a gist

	=head1 SYNOPSIS
	#!/bin/bash

	# Don't judge me too harshly. This is a throwaway that I put
	# together in 5 minutes to make a couple hundred pull requests
	DEV=/Users/brian/Dev
	target=.github/workflows/windows.yml
	message="Update windows workflow"
	echo MESSAGE $message
	branch=windows-update
	json=$(cat <<-END
	#!perl
	use v5.36;
	use feature ();

	my( %Features, %Versions );
	foreach my $key ( keys %feature::feature_bundle ) {
	next unless $key =~ /\A5\.\d[02468]\z/;
	$Versions{$key}++;
	foreach my $feature ( $feature::feature_bundle{$key}->@* ) {
	$Features{$feature}{$key}++;
	#!perl
	use v5.10;
	use utf8;

	use Encode;
	use I18N::Langinfo qw(langinfo CODESET);
	use MIME::Base64;

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