ytnobody

MYAPP_HOME=/home/ytnobody/work/myapp
SETLOCK=/usr/local/bin/setlock
LOGGER=/bin/logger

*/5 * * * * $SETLOCK /tmp/myapp.lock $MYAPP_HOME/bin/env $MYAPP/bin/getter | $LOGGER -t MYAPP

ytnobody

#!/bin/sh

export HOME=/home/ytnobody
cd $HOME/work/myapp

. ~/perl5/perlbrew/etc/bashrc
perlbrew use perl-5.12.3
export PERL5OPT="-Ilib"

exec carton exec "$@"

ytnobody

: SEQ ( nx ny -- nx ... ny )
    SWAP OVER OVER
    < IF
        BEGIN
            OVER 1 + SWAP
            OVER OVER >=
        UNTIL
        DROP
    ELSE
        BEGIN

ytnobody

sub mymap (&@) {
    my ( $code, @list ) = @_;
    my @res ;
    for my $item ( @list ) {
        $_ = $item;
        push @res, $code->();
    }
    return @res;
}

ytnobody

use strict;

my %hash = (
    hoge => [ 1, 2, 3, 4 ],
    fuga => [ 3, 4, 6, 8, 2 ],
    piyo => [ 4, 6, 9, 2 ],
);

print join ', ', map { join ': ', @{$hash{$_}} } keys %hash;

ytnobody

#
# LWP::UserAgentを使ってBasic認証+GETパラメータつきのリクエストを発行するサンプル
#

use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use URI;

# URIオブジェクト作成

ytnobody

use strict;

my @a = (1,2,3,4,5,6,7,8,9);
my @b = (5,2,9,3);

my @x = grep {
    my $_1 = $_;
    my $r = grep {$_ eq $_1} @b;
    $r == 0;
} @a;

ytnobody

#!/usr/bin/env perl

$| = 1;

use warnings;
use strict;
use Data::Dumper;
use I18N::LangTags qw/ :ALL /;
use I18N::LangTags::List;

ytnobody

NAME

jiku - javascript timer management object

SYNOPSIS

// slates setTimeout
var x = new jiku.timer( 'Timeout', 5000, [ 'mytag', 'test', 'link' ], function(){ ... } );

// slates setInterval

ytnobody

NAME

jcue - javascript job-queueing engine

SYNOPSIS

// create a new jcue object with 
jcue.clock = 100;

// put job-queue to jcue