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
perl -E 'if(`which setxkbmap`){ `setxkbmap -option \"caps:ctrl_modifier\"`}' |
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
package Clipboard; | |
use Exporter 'import'; | |
our @EXPORT_OK = qw( clip ); | |
our $VERSION = '0.03'; | |
use warnings; | |
use strict; | |
sub os { |
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/env perl | |
use 5.010; | |
use strict; | |
use warnings; | |
use Data::Dumper; | |
use HTTP::Tiny; | |
use JSON::PP; | |
use Term::ANSIColor; |
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/env perl | |
use 5.010; | |
use strict; | |
use warnings; | |
use Data::Dumper; | |
use HTTP::Tiny; | |
use JSON::PP; | |
use Term::ANSIColor; |
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/local/bin/perl | |
use 5.010; | |
use warnings; | |
use strict; | |
# create activator listener for command | |
# usage: actlsr 'ls -la' | |
# respring device and assign to some gesture |
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/local/bin/perl | |
use 5.010; | |
use strict; | |
use warnings; | |
use Mac::PropertyList; | |
my $data; | |
{ |
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/local/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{"Perl/Mac/ProperyList/ReadBinary.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'PERL_MAC_PROPERYLIST_READBINARY'; | |
package Mac::PropertyList::ReadBinary;use strict;use warnings;use vars qw($VERSION);use Carp;use Data::Dumper;use Encode qw(decode);use Mac::PropertyList;use Math::BigInt;use MIME::Base64 qw(decode_base64);use POSIX qw(SEEK_END SEEK_SET);use XML::Entities ();$VERSION='1.41';__PACKAGE__->_run(@ARGV)unless caller;sub new {my($class,$source)=@_;my$self=bless {source=>$source },$class;$self->_read;$self}sub _source {$_[0]->{source}}sub _fh {$_[0]->{fh}}sub _trailer {$_[0]->{trailer}}sub _offsets {$_[0]->{offsets}}sub _object_ref_size {$_[0]->_trailer->{ref_size}}sub plist {$_[0]->{parsed}}sub _object_size {$_[0]->_trailer->{object_count}* $_[0]->_trailer->{offset_size}}sub _read {my($sel |
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
die bless [], 'Dies'; | |
package Dies; | |
use overload '""' => 'dies'; | |
sub dies { return '' } |
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
#!/bin/bash | |
for i in `find ~/*/Data/A* -name ".com*"`;do if [[ `cat $i|grep iQ` ]]; then find `dirname $i` -name '*.mp4'; fi; done |
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/local/bin/perl | |
use 5.010; | |
use warnings; | |
use strict; | |
use Getopt::Std; | |
use Filesys::Notify::Simple; | |
use File::Path; | |
use JSON::PP; |
NewerOlder