2shortplanks

#!/usr/bin/env perl -s

use strict;
use warnings;

use Term::ANSIColor qw(colored);

$::r = $::r ? "" : '(?![\\x{1b}]\\[\\d+m)';

while (<>) {

2shortplanks

#!/usr/bin/env perl

use 5.012;
use warnings;

use JSON::XS qw(decode_json);
use Devel::Peek;

foreach (1..2) {
  my $string = '{"a":false,"b":false}';

2shortplanks

Things I would like my AppleTV to do:

0. Watch Amazon Prime

1. Have a system wide "kids mode" and "adult mode"

2. A remote App for the iPhone / iPad that mirrors the menu navigation on the iPhone / iPad screen

3. A remote App for the iPhone / iPad that shows me keyframes to navigate within an episode

2shortplanks

#!/Users/mark/perl5/perlbrew/perls/perl-5.16.0/bin/perl 

use 5.016;
use warnings;
use Acme::MetaSyntactic;

say 'print STDERR "', 
  join(' ', Acme::MetaSyntactic->new( 'batman' )->name(2)),
  '\\n";'

2shortplanks

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<array>
	<dict>
		<key>Activate</key>
		<string>Normal</string>
		<key>IsActive</key>
		<true/>
		<key>Macros</key>

2shortplanks

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<array>
	<dict>
		<key>Activate</key>
		<string>Normal</string>
		<key>IsActive</key>
		<true/>
		<key>Macros</key>

2shortplanks

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<array>
	<dict>
		<key>Activate</key>
		<string>Normal</string>
		<key>IsActive</key>
		<true/>
		<key>Macros</key>

2shortplanks

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<array>
	<dict>
		<key>Activate</key>
		<string>Normal</string>
		<key>IsActive</key>
		<true/>
		<key>Macros</key>

2shortplanks

mark@travis-5:~$ perl find2.pl /usr/share/dict/words 
acalycine calycine calcine alcine aline line lie ie i
acalycine calycine calcine alcine aline line lie li i
acalycine calycine calcine alcine aline line lin in i
acalycine calycine calcine alcine aline line lin li i
acalycine calycine calcine alcine aline alin lin in i
acalycine calycine calcine alcine aline alin lin li i
acalycine calycine calcine alcine aline alin aln an a
acalycine calycine calcine alcine aline alin aln al a
acaridean caridean caridea carida carid arid rid id i

2shortplanks

#!/usr/bin/perl

# This chunk of stuff was generated by App::FatPacker. To find the original
# file's code, look for the end of this BEGIN block or the string 'FATPACK'
BEGIN {
my %fatpacked;

$fatpacked{"Clone/PP.pm"} = <<'CLONE_PP';
  package Clone::PP;