syachi

syntax on

set mouse-=a

set tabstop=4
set autoindent
set expandtab
set shiftwidth=4

if exists('&ambiwidth')

syachi

syachi

#!/usr/bin/env perl
use Mojolicious::Lite;
use Image::Magick;
use Redis;

get '/' => sub {
  my $c = shift;
  $c->render('index');
};

syachi

#!/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()

syachi

#!/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';

syachi

package Dumper;

use utf8;
use base 'Exporter';
our @EXPORT = qw/Dumper/;

use Data::Dumper;

no warnings 'redefine';
sub Dumper

syachi

#!/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.';