briandfoy

#!/Users/brian/bin/perls/perl-latest
use v5.28;

use Mojo::DOM;
use Mojo::UserAgent;

my $data = do { local $/; <DATA> };

my $url = 'http://m.mlb.com/teams/';
my $tx = Mojo::UserAgent->new->get( $url );

briandfoy

#!/Users/brian/bin/perls/perl-latest
use v5.28;
use utf8;
use strict;
use warnings;
use feature qw(signatures);
no warnings qw(experimental::signatures);

# non-blocking stream reading of a slow standard input
# perl -pe '$|++; sleep 1' /etc/hosts | perl-latest read_slowly.pl

briandfoy

#!/Users/brian/bin/perls/perl-latest
use v5.26;
use utf8;
use strict;
use warnings;

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

briandfoy

#!/Users/brian/bin/perls/perl-latest
use v5.26;
use utf8;
use strict;
use warnings;


use Mojo::File;

package Mojo::File::Role::parent {

briandfoy

http://www.evanmiller.org/how-not-to-sort-by-average-rating.html






sub ci_lower_bound ( $postive_ratings, $total_ratings, $confidence = 0.95 ) {
	return 0 if $total_ratings == 0;
	

briandfoy

briandfoy

#!/Users/brian/bin/perls/perl-latest
use v5.26;
use utf8;
use strict;
use warnings;
use lib qw(/Users/brian/Dev/business-us-usps-webtools/lib);

use Business::US::USPS::WebTools::TrackConfirm;
use Term::ANSIColor;

briandfoy

#!/Users/brian/bin/perls/perl-latest
use v5.28;
use utf8;
use open qw(:std :utf8);
use strict;
use warnings;
use feature qw(signatures);
no warnings qw(experimental::signatures);

use IO::Interactive qw(interactive);

briandfoy

use v5.24;

my $n = $ARGV[0] // 35;
my $count = 0;

while($count <= $n) {
    state $a = [ \$count, \'Fizz', \'Bin', \'FizzBin' ];
    say $a->[ (810092048>>((2*(++$count-1))%30)) & 0b11 ]->$*;
}

briandfoy

#!/usr/local/bin/python3

import heapq
import os
import sys

class MergeFiles:
	"""
	Given a list of files, output their numbers in sorted order.