View multiscan.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use POSIX ":sys_wait_h"; | |
STDOUT->flush(); | |
use File::Which qw( which ); | |
foreach ( qw| convert scanimage | ) { |
View stream_podcasts.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
# Dependencies | |
use LWP::UserAgent; # Usually pre-installed, available on CPAN | |
use XML::Hash::XS; # CPAN or libxml-hash-xs-perl on Debian | |
# Feeds that should be used if no arguments are provided |
View sway_displays.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
######################################################################## | |
# Dependencies | |
######################################################################## | |
# | |
# Depends on JSON::XS and Proc::ProcessTable | |
# | |
# Debian: | |
# apt install libjson-xs-perl libproc-processtable-perl |
View update_minecraft.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# Accompanying SystemD Unit file compatible with these locations/user: https://gist.github.com/JohnMertz/c6bb4a9298dd3dc53b8030ff50466226 | |
# | |
# Expects the following minecraft directories: | |
# ./ The PWD is taken dynamically. In the SystemD unit, it is /var/lib/minecraft | |
# current The latest version. This will be the executable directory. | |
# 1.16.2 Directories will be created for every old version | |
# update_minecraft.pl This script | |
# |
View minecraft.service
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
[Unit] | |
Description=Minecraft | |
After=network.target | |
[Service] | |
Type=simple | |
User=minecraft | |
Group=minecraft | |
WorkingDirectory=/var/lib/minecraft/current | |
ExecStart=java -jar -Xmx2G -Xms1G server.jar --nogui |
View amihome.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Net::Ping; | |
my $file = "/tmp/amihome"; | |
my $host = "192.168.2.127"; |
View dialpad.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# TODO: at the moment, words are only broken up by 0 and 1. Should search for smaller sequential words. For example: | |
# 6908378 finds: mytest | |
# but 1698378 does not | |
use strict; | |
use warnings; | |
# Default Debian ispell dictionary |
View traffic.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use Data::Dump qw | dump |; | |
use LWP::UserAgent; | |
use JSON::XS; | |
my $ua = LWP::UserAgent->new(); |
View battery.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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 |
View net.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
my $addr = `ip addr`; | |
my %links; | |
my $current; | |
foreach (split '\n', $addr) { |
NewerOlder