brian d foy briandfoy

I needed to read a Mojo app's config file without being in the Mojo app itself. If I were using YAML or JSON that wouldn't be a problem, but I was using the old-school Perl code format.

I pulled some of the stuff out of Mojolicious::Plugin::Config to write a little script to do it the same way. One thing to note is that mode-specific config files (app.development.conf) overlay the main one rather than merging into it. A later config key at the top level completely replaces the one before it, just as we expect from a Perl hash.

I asked ChatGPT 4.5 to give me the list of the all the videos show on MTV on its first day (August 1, 1981). I wanted ChatGPT to give me the YouTube links, but it gave up after one video. I did not check this list for truth.

There's a YouTube playlist:

The Beacon Journal had Here's the complete list of MTV’s first 100 videos aired on Aug. 1, 1981. ChatGPT gave up after 77 entries in the JSON I asked it to create, which is also in this gist.
A YouTube playlist has 87 songs
IMDB's list

	use v5.42;

	use List::Util qw(zip);
	use Mojo::Template;
	use Set::CrossProduct;
	use Storable qw(dclone);

	=head1 NAME

	crontab2launchd - rough conversion of crontab lines to launchd files

	#!/bin/sh

	USER=${GITHUB_USER}
	FROM=$(date -u +"%Y-01-01T00:00:00Z")
	TO=$(date -u +"%Y-%m-%dT%H:%M:%SZ")

	gh api graphql -f query='
	query($login:String!,$from:DateTime!,$to:DateTime!){
	user(login:$login){
	contributionsCollection(from:$from,to:$to){

	#!perl
	use v5.40;

	use Mojolicious::Lite;
	use Mojo::Server::Daemon;
	use Mojo::UserAgent;

	my $port = 3000;

	my $pid = fork;

	#!/usr/bin/perl

	{
	package Parent;
	sub bar { print "Parent: $_[0]" . "\n" }
	}

	{
	package Foo;
	use parent qw(Parent);

	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>