chris-x86-64

#!/usr/bin/perl

use strict;
use warnings;
use Encode;
use utf8;
use Net::Twitter::Lite;
use YAML::Syck;

my $conf = YAML::Syck::LoadFile('config.yml');

chris-x86-64

#!/usr/bin/perl

use strict;
use warnings;
use Encode;
use utf8;
use Data::Dumper;
use AnyEvent::Twitter::Stream;
use YAML::Syck;

chris-x86-64

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Net::Twitter::Lite::WithAPIv1_1;
use YAML::Syck;
use Data::Dumper;

my $conf = YAML::Syck::LoadFile('config.yml')->{oauth};

chris-x86-64

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Encode;
use utf8;
use Data::Dumper;
use AnyEvent::Twitter::Stream;
use YAML::Syck;

chris-x86-64

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use YAML::Syck;

use lib './lib';
use SaitanBot::Think;

chris-x86-64

-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.4.11 (GNU/Linux)

mQMuBFHPYo4RCACwmDV/kkLbtCNojKMziZi6sePeOjj2KkOREbsRoKx+bc2iaojA
STiFiJ1fuEGac9RT5U8XLBaQsA/KGuKBFOYbH9/jT7S4DX0LMWR5aJwMAvtqFD3o
DR3YJcdlkQMo71WgDoWdIagcarss/E8JTE0wdJD+yT7+l5VG8Jk0R+iQLkciWt28
jvEMsZ+Vx0sknwpRrdOzLJzupX1VKG4ZOmh5sjX6So8xFYCnJ6kIBi3Dse37mKtC
Ob1ospMDY6MkXcUZKgmSxDkxwYGoHSDU0hqFXSUXiu3XfbbKox4i9iDzyhicfhlY
iVgmk2RLqU/18CSB6Uey97Gd86pAVU9MfavvAQDFJdcTzWozVF/i8z1ysym2JeCh
QkBmceHDpvNlTaMv8wf/eFOlDY7yBdLOt5BT1qKyQ3TQccwHvqc1TCdjPTF6Zi0V

chris-x86-64

# -*- coding: utf-8 -*-
# Author:		Keiya Chinen, keiyac
# lastupdate	2010/07/30

# users generic .zshrc file for zsh(1)

## Environment variable configuration
#
# LANG
#

chris-x86-64

" Author:		Keiya Chinen, keiyac
" Last Change:	2010/07/29
scriptencoding utf-8
syntax on
filetype plugin on
filetype indent on
augroup vimrc
autocmd!
augroup end

chris-x86-64

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

my @numeric_characters = ('', '一', '二', '三', '四', '五', '六', '七', '八', '九');
my @digits = ('', '十', '百', '千');

my @alphabets = (

chris-x86-64

# -*- coding: utf-8 -*-

Plugin.create(:progress) do

	filter_show_filter do |msgs|
		[
			msgs.map do |m|
				if m and !m[:retweeted_status]
					m[:message] = "進捗どうですか"
				end