This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use utf8; | |
| use WWW::Mechanize; | |
| use Web::Scraper; | |
| use Path::Class; | |
| use Data::Dumper; | |
| use Devel::KYTProf; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use utf8; | |
| use Encode qw/encode/; | |
| my $judging_katakana_list = { | |
| ア => qr/^[ア-オ]/, | |
| カ => qr/^[カ-コ]/, | |
| サ => qr/^[サ-ソ]/, |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # -*- coding: utf-8 -*- | |
| try: | |
| from xml.etree import ElementTree | |
| except ImportError: | |
| from elementtree import elementtree | |
| import atom | |
| import atom.data | |
| import atom.service |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use utf8; | |
| use Data::Dumper; | |
| MAIN: { | |
| my $yonkoma = YonKoma->new( | |
| CREATORS_URL => "http://4koma.livedoor.com/creator/", |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use utf8; | |
| my $remotes = [ | |
| { user => 'user name', host => 'host name', project_dir => 'project directory' }, | |
| ]; | |
| MAIN: { | |
| for my $remote ( @{$remotes} ) { |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| [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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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; | |
| } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # -*- coding: utf-8 -*- | |
| import sys | |
| import time | |
| import datetime | |
| class Observable(): | |
| pass | |
| class Tick(Observable): |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # -*- coding: utf-8 -*- | |
| import sys | |
| import time | |
| import datetime | |
| class Observable(): | |
| def __init__(self): | |
| self.__observers = [] |