wakaba

javascript:var s=document.createElement('script');s.src="https://gist.githack.com/wakaba/b90f120b2617afe5c2fc4d08d84e801f/raw/script.js";document.body.appendChild(s);void(0)

tatsuru

#!/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

hokaccha

#!/usr/bin/env perl

use strict;
use warnings;
use Pod::Usage;

use Text::Markdown 'markdown';
use HTML::TreeBuilder;
use List::Util 'max';

motemen

hello

miyagawa

#!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;

inao

#!/usr/bin/env perl

use strict;
use warnings;
use Pod::Usage;

use Text::Markdown 'markdown';
use HTML::TreeBuilder;
use List::Util 'max';

hakobe

use strict;
use warnings;
use Mac::AppleScript qw(RunAppleScript);
use Perl6::Say;
use FindBin;

my $me = "$0";

sub play {
    my $script = <<"SCRIPT";