Skip to content

Instantly share code, notes, and snippets.

View vkgtaro's full-sized avatar
😃

Taro Komatsu vkgtaro

😃
View GitHub Profile
@vkgtaro
vkgtaro / uploader.pl
Created April 30, 2011 23:52
upload images for eZ Publish
use strict;
use warnings;
use utf8;
use WWW::Mechanize;
use Web::Scraper;
use Path::Class;
use Data::Dumper;
use Devel::KYTProf;
use strict;
use warnings;
use utf8;
use Encode qw/encode/;
my $judging_katakana_list = {
ア => qr/^[ア-オ]/,
カ => qr/^[カ-コ]/,
サ => qr/^[サ-ソ]/,
# -*- coding: utf-8 -*-
try:
from xml.etree import ElementTree
except ImportError:
from elementtree import elementtree
import atom
import atom.data
import atom.service
@vkgtaro
vkgtaro / gist:1397435
Created November 27, 2011 11:17
4koma download
use strict;
use warnings;
use utf8;
use Data::Dumper;
MAIN: {
my $yonkoma = YonKoma->new(
CREATORS_URL => "http://4koma.livedoor.com/creator/",
@vkgtaro
vkgtaro / deploy.pl
Created December 15, 2011 19:41
tiny deploy tool
use strict;
use warnings;
use utf8;
my $remotes = [
{ user => 'user name', host => 'host name', project_dir => 'project directory' },
];
MAIN: {
for my $remote ( @{$remotes} ) {
@vkgtaro
vkgtaro / hoge.ini
Created December 17, 2011 08:30
plack app on supervisor
[program:hoge]
directory=/home/hoge/hoge
command=/home/hoge/perl5/perlbrew/perls/perl-5.14.2/bin/plackup bin/app.psgi
user=hoge
stdout_logfile_maxbytes=1MB
stderr_logfile_maxbytes=1MB
stdout_logfile=/var/log/%(program_name)s.log
stderr_logfile=/var/log/%(program_name)s.log
autorestart=true
environment=PATH=/home/hoge/perl5/perlbrew/bin:/home/hoge/perl5/perlbrew/perls/perl-5.14.2/bin:/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin:/home/hoge/bin
function sleep( t ){
var current_time = new Date().getTime();
var now_time = current_time;
var end_time = current_time + 1000 * t;
while( now_time < end_time ){
now_time = new Date().getTime();
}
return;
}
use strict;
use warnings;
use utf8;
use lib qw/lib/;
use Capture::Tiny qw/capture_stderr/;
# mkdir -p lib/Capture
# cd lib/Capture/
# curl -O http://cpansearch.perl.org/src/DAGOLDEN/Capture-Tiny-0.18/lib/Capture/Tiny.pm
@vkgtaro
vkgtaro / clock.py
Created October 9, 2012 12:35
CodeIQ 用問題
# -*- coding: utf-8 -*-
import sys
import time
import datetime
class Observable():
pass
class Tick(Observable):
@vkgtaro
vkgtaro / clock.py
Created November 13, 2012 08:22 — forked from CodeIQ/clock.py
CodeIQ 用問題
# -*- coding: utf-8 -*-
import sys
import time
import datetime
class Observable():
def __init__(self):
self.__observers = []