JohnMertz

#!/usr/bin/perl

use strict;
use warnings;

use Net::Ping;

my $file = "/tmp/amihome";
my $host = "192.168.2.127";

JohnMertz

#!/usr/bin/perl

use warnings;
use strict;

use Data::Dump qw | dump |;
use LWP::UserAgent;
use JSON::XS;

my $ua = LWP::UserAgent->new();

JohnMertz

#!/usr/bin/perl

# Not proud of this one. It had multi-battery supported shunted on when I got a new laptop and Waybay output taped on too. Could use to be cleanud up a lot, but it does the job.
my $output;
my $bar = 0;

if ($ARGV[0] eq '-h' || $ARGV[0] eq '--help') {
    print'
pow.pl - Power Status Script

JohnMertz

#!/usr/bin/perl

use warnings;
use strict;

use Time::Local;
use JSON::XS;
use DBI;

my $file = "/path/to/export_file";

JohnMertz

#!/usr/bin/perl

# Manually trigger with `$0 -a` to log an exercise event for the day.
# Automatically run each morning with `$0 -c` to cycle out old data
# Simply outputs Bool for event today, count for the last 7 days and the goal
# Meant for a simple indicator widget so I know if a streak is at risk

use JSON::XS;
use Date::Calc;

JohnMertz

#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;
use JSON::XS;
use HTML::TreeBuilder;

my $pretty = 0;

JohnMertz

#include <stdio.h>
void main() {
    int x,y,z,spaceleft,spaceright,width;
    printf("|");
    for (x=0;x<80;x++) {
        printf(" ");
    }
    printf("|left card right\n");
    for (x=1;x<=13;x++) {
        width = 67 / x;

JohnMertz

#!/usr/bin/perl

# Program to find all words from a given pool of letters. Written to solve the
# Android puzzle game "Wordscape".

use strict;
use warnings;

# Default Debian ispell dictionary
my $dict = "/etc/dictionaries-common/words";

JohnMertz

#!/usr/bin/perl

# Note for GitHub:
# This script makes several assumptions based on the backup image I use.
# Mine is a freshly installed Debian image preconfigured just how I want it.
# The script relies on the name 'fresh-lxc' and IP '10.0.3.1' being set.
# It is also written with Debian Buster as the host, some paths may differ.
# Make changes appropriately.

use strict;

JohnMertz

#!/usr/bin/perl

use strict;
use warnings;

use JSON::XS;

# Checking for devices every time takes a few seconds, so store these
# settings in a file. Do so in /tmp so that it will be re-checked on reboot
my $tmp = '/tmp/cec-devices';