briandfoy

#!perl
use v5.26;
use strict;
use warnings;
use feature qw(signatures);
no warnings qw(experimental::signatures);

=encoding utf8

=head1 NAME

briandfoy

#!/bin/sh

<< 'DOCS'
	This is a small script I use to run speedtest from cron so I
	can monitor some network performance. The speedtest command
	comes from the speedtest-cli Python project:

		https://github.com/sivel/speedtest-cli

	This writes to the log file "speedtest.csv" or the file you specify in SPEEDTEST_LOG:

briandfoy

I'm not committing to the book just yet, but I'm thinking about what the outline would be.
I'm thinking about running another Kickstarter if I can find a major sponsor like I did
last time. Email me if you might be that person.

The basic idea is a tutorial book on writing  that would start from scratch and build up. 
This is specifically not a reference book that covers every aspect of Mojolicious. The 
trick is to figure out all the topics that should be in the book and how to introduce them 
gradually. Most topics should be relevant to most of the audience, while uncommon tasks 
or lightly used features might not show up at all.

briandfoy

#!/Users/brian/bin/perl

use v5.10;

use CLDR::Number;
use Mojo::UserAgent;
use Mojo::Util qw(dumper);

my $url = 'http://www.espn.com/nfl/history/leaders/_/stat/passyards';

briandfoy

#!/Users/brian/bin/perl
use v5.10;

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

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

my $url = 'http://www.espn.com/nfl/superbowl/history/mvps';

briandfoy

#!/Users/brian/bin/perl
use v5.26;

use Mojo::UserAgent;
use Term::ANSIColor;

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

my $url = 'https://www.thisamericanlife.org/archive';

briandfoy

#!/Users/brian/bin/perl

use v5.10;

BEGIN {
=pod

Windows:

    $ENV{TMPDIR}

briandfoy

#!/usr/bin/osascript

tell application "Safari"
	repeat with w from 1 to number of windows
		repeat with t from 1 to number of tabs in window w
			log URL of tab t of window w as string
		end repeat
	end repeat
end tell

briandfoy

tell application "iTunes"
	if selection is not {} then
		set mySelection to selection
		repeat with aTrack in mySelection
			set album rating of aTrack to 0
		end repeat
	end if
end tell

briandfoy

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

=head1 NAME

national_parks.pl - scrape the National Park sites

=head1 SYNOPSIS