niratama

use utf8;
use strict;
use warnings;
use Encode qw(encode_utf8 decode_utf8);

# 文字が指定のバイト数を超えている場合に切り取る。
sub kirisute_gomen {
    my ($string, $byte_len, $str_len) = @_;
    return $string if (length(encode_utf8($string)) <= $byte_len && length($string) <= $str_len);

niratama

package main

import (
    "encoding/json"
    "fmt"
    "io/ioutil"
    "net/http"
    "strconv"
)

niratama

package main

import (
	"fmt"
	"log"
	"net/http"

	"github.com/skratchdot/open-golang/open"
)

niratama

#!/bin/sh

# Modified by Stan Schwertly to download locally rather than to send to Posterous. 
# Github: http://github.com/Stantheman/Twitpic-Backup

# Copyright 2010 Tim "burndive" of http://burndive.blogspot.com/
# This software is licensed under the Creative Commons GNU GPL version 2.0 or later.
# License informattion: http://creativecommons.org/licenses/GPL/2.0/

# This script is a derivative of the original, obtained from here:

niratama

package main

import (
	"fmt"
	"reflect"
	"time"
	"strconv"
	"regexp"
)

niratama

package MySub;
use strict;
use warnings;

use MySub2;

sub callback {
	print "in MySub::callback($_[0])\n";
}

niratama

package MyObj;
use strict;
use warnings;

sub new {
	my $class = shift;
	return bless { name => shift }, $class;
}

sub method {

niratama

diff --git a/ish.c b/ish.c
index eadfecb..dd7537f 100644
--- a/ish.c
+++ b/ish.c
@@ -52,7 +52,7 @@ char *filename = "file.ish";
 int    mline = 0;
 int    lfflag = 0;
 
-FILE *opath = stdout;
+FILE *opath;

niratama

# -*- mode: ruby -*-
# vi: set ft=ruby :

Vagrant.configure(2) do |config|
  config.vm.box = "centos6.6"
  config.vm.provision "ansible" do |ansible|
    ansible.playbook = "playbook.yml"
    ansible.verbose = "v"
  end
end

niratama

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use Encode qw(encode_utf8 decode_utf8);
use JSON;
use File::Slurp;
use LWP::Simple;