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.

briandfoy

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

briandfoy

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

briandfoy

#!/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){

briandfoy

#!perl
use v5.40;

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

my $port = 3000;

my $pid = fork;

briandfoy

#!/usr/bin/perl
use v5.14;
use strict;
use warnings;

use PPI;
use Scalar::Util qw(blessed);


# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

briandfoy

#!/usr/bin/perl

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

{
package Foo;
use parent qw(Parent);

briandfoy

#!/usr/bin/perl

=encoding utf8;

=head1 NAME

grab-gist - download all the files in a gist

=head1 SYNOPSIS

briandfoy

BuiltinFunctions::ProhibitBooleanGrep
BuiltinFunctions::ProhibitStringyEval
BuiltinFunctions::ProhibitStringySplit
BuiltinFunctions::ProhibitUniversalCan
BuiltinFunctions::ProhibitUniversalIsa
ClassHierarchies::ProhibitExplicitISA
ControlStructures::ProhibitMutatingListFunctions
ControlStructures::ProhibitUnreachableCode
ErrorHandling::RequireCarping
InputOutput::ProhibitBarewordFileHandles

briandfoy

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;