Skip to content

Instantly share code, notes, and snippets.

Avatar

Satoh, Hiroh cho45

View GitHub Profile
View bookmarklet
javascript:var s=document.createElement('script');s.src="https://gist.githack.com/wakaba/b90f120b2617afe5c2fc4d08d84e801f/raw/script.js";document.body.appendChild(s);void(0)
@tatsuru
tatsuru / mackerel-plugin-theschwartz.sh
Created Dec 19, 2014
Theschwartz job count plugin for Mackerel
View mackerel-plugin-theschwartz.sh
#!/bin/bash
usage() {
echo "Usage: $0 [-m METRIC_NAME] [-u USER] [-p PASSWORD] [-d DATABASE] [-h]"
}
METRIC_NAME=theschwartz.count
DBUSER=root
DBPASS=
DATABASE=theschwartz
View markdown2inao.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Pod::Usage;
use Text::Markdown 'markdown';
use HTML::TreeBuilder;
use List::Util 'max';
View sleepsort-ae.pl
#!perl
use v5.10;
use AnyEvent;
my $cv = AE::cv;
my @timers;
for my $num (@ARGV) {
$cv->begin;
push @timers, AE::timer $_, 0, sub {
say $num;
View markdown2inao.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Pod::Usage;
use Text::Markdown 'markdown';
use HTML::TreeBuilder;
use List::Util 'max';
View itunes.pl
use strict;
use warnings;
use Mac::AppleScript qw(RunAppleScript);
use Perl6::Say;
use FindBin;
my $me = "$0";
sub play {
my $script = <<"SCRIPT";
You can’t perform that action at this time.