briandfoy

#!/usr/bin/perl
use v5.10;

=head1 NAME

neighborhood_scam_groups.pl - generate contact groups for all the numbers in a exchange

=head1 SYNOPSIS

    $ perl neighborhood_scam_groups.pl AREA_CODE EXCHANGE > scam.csv

briandfoy

#!/usr/bin/perl
use v5.10;
use strict;

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

# Translate the first command-line argument to the Mojo::JSON method to use
my $pause = $ARGV[0] ? 'true' : 'false';

briandfoy

{
	"color_scheme": "Packages/User/brian.sublime-color-scheme",
	"ensure_newline_at_eof_on_save": true,
	"font_face": "Inconsolata Medium",
	"font_size": 10,
	"highlight_modified_tabs": true,
	"hot_exit": false,
	"copy_with_empty_selection": false,
	"ignored_packages":
	[

briandfoy

#!/Users/brian/bin/perls/perl5.28.0
use v5.28;
use utf8;
use strict;
use warnings;

use File::Path qw(make_path);
use File::Spec::Functions;
use IO::Interactive qw(interactive);
use Mojo::Useragent;

briandfoy

/*
Put this in ~/.config/sublime-text-3/Packages/User
*/

{
    "name": "briandfoy",
    "author": "brian d foy <[email protected]>",
    "variables":
    {
        "black":  "hsl(0,0%,0%)",

briandfoy

#!/usr/local/bin/python3

import heapq
import os
import sys

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

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

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

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