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(

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
#
## yanchaのAPIリクエストサンプル
##
## https://github.com/uzulla/yancha
##

use strict;
use warnings;
use utf8;

ichigotake

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Encode qw/encode_utf8/;
use HTTP::Request::Common;
use LWP::UserAgent;
use Data::Dumper;

ichigotake

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Encode qw/encode_utf8/;
use URL::Encode qw/url_encode_utf8/;
use JSON qw/encode_json decode_json/;
use HTTP::Request::Common qw/POST/;
use LWP::UserAgent;

ichigotake

<?php


// Define path to application directory
defined('APPLICATION_PATH')
    || define('APPLICATION_PATH', realpath(dirname(__FILE__) . '/../application'));

// Define application environment
defined('APPLICATION_ENV')
    || define('APPLICATION_ENV', (getenv('APPLICATION_ENV') ? getenv('APPLICATION_ENV') : 'production'));

ichigotake

# 出力例
#(*>ヮ<)っ:~ $ 

PS1="(*>ヮ<)っ:\W\$ "

ichigotake

#!/bin/env perl

use strict;
use warnings;
use Calendar::Japanese::Holiday;
use Time::Local qw/timelocal/;
use Encode qw/encode/;

my (undef,undef,undef, undef,$now_mon,$now_year) = localtime(time);
my $year = $ARGV[0] || ($now_year+1900);

ichigotake

#!/usr/bin/env perl

# CAM::PDF - search.cpan.org
# http://search.cpan.org/~cdolan/CAM-PDF-1.58/lib/CAM/PDF.pm

use strict;
use warnings;
use CAM::PDF;

# 結合するPDFのファイル名を指定してインスタンス生成

ichigotake

package Yancha::Plugin::PluginAutoloader;

use strict;
use warnings;

sub setup {
    my ($class, $sys) = @_;

    my %config;
    for my$plugin( @{$sys->config->{ plugins }} ) {