ichigotake

#!/usr/bin/env perl
#
## yanchaのAPIリクエストサンプル
##
## https://github.com/uzulla/yancha
##

use strict;
use warnings;
use utf8;

ichigotake

#!/bin/sh


for i in {0..255} ; do
    printf "\x1b[38;5;${i}mcolour%3d " "${i}"
    if [ $(expr $i % 7) == 0 ]
    then
        echo
    fi
done

ichigotake

#!/usr/bin/env perl

use strict;
use warnings;
use Growl::GNTP;

my $interval = $ARGV[0] > 0 ? $ARGV[0]:30;


my $growl = Growl::GNTP->new(