This file contains 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
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use GD; | |
use GD::Text::Align; | |
my $jp_str = $ARGV[0] || '動物はあなたのごはんじゃない。'; | |
my $en_str = $ARGV[1] || 'Animals are not your food prodcts.'; |
This file contains 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
package Dumper; | |
use utf8; | |
use base 'Exporter'; | |
our @EXPORT = qw/Dumper/; | |
use Data::Dumper; | |
no warnings 'redefine'; | |
sub Dumper |
This file contains 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
#!/usr/bin/env perl | |
use utf8; | |
use strict; | |
use Net::Twitter::Lite::WithAPIv1_1; | |
my $consumer_key = 'dummy'; | |
my $consumer_secret = 'dummy'; | |
my $token = 'dummy'; | |
my $token_secret = 'dummy'; |
This file contains 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
#!/usr/bin/env python | |
# -*- coding: utf-8 -*- | |
# See http://qiita.com/yubais/items/dd143fe608ccad8e9f85 | |
import sys | |
import datetime | |
import requests_oauthlib | |
# 残り日数 | |
td = datetime.date(2014, 11, 15) - datetime.date.today() |
This file contains 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
#!/usr/bin/env perl | |
use Mojolicious::Lite; | |
use Image::Magick; | |
use Redis; | |
get '/' => sub { | |
my $c = shift; | |
$c->render('index'); | |
}; |
This file contains 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
南北線 | 麻生 | 北区 | |
---|---|---|---|
南北線 | 北34条 | 北区 | |
南北線 | 北24条 | 北区 | |
南北線 | 北18条 | 北区 | |
南北線 | 北12条 | 北区 | |
南北線 | さっぽろ | 中央区 | |
南北線 | 大通 | 中央区 | |
南北線 | すすきの | 中央区 | |
南北線 | 中島公園 | 中央区 | |
南北線 | 幌平橋 | 中央区 |
This file contains 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
syntax on | |
set mouse-=a | |
set tabstop=4 | |
set autoindent | |
set expandtab | |
set shiftwidth=4 | |
if exists('&ambiwidth') |