yasu47b

alert('hoge')

yasu47b

use strict;
use warnings;
use 5.010;

my @array = (10,8,2,2);

while( my ($i, $e) = each @array){
        say "i: $i, e: $e";
}

yasu47b

1. add disk or expand disk

1.1 add disk to VM from virtualbox manager

go 2.set LVM in VM

1.2 expand disk

set new partition

yasu47b

// 休日のjsonを返す
// this gas return json that all holidays in this month
// or reutrn specific range of holidays if keys esisted. eg http://<script_url>?start_date=2016-04-10&end_date=2016-05-11
function doGet(e) {
  
  var today = new Date();
  // キーの取得
  var param_start_date = e.parameter.start_date;
  var param_end_date = e.parameter.end_date;
  var output = {};

yasu47b

my git quick reference

remove remote branch

git push <remote name> :<remote branch name>
git push origin :hoge

show differences

yasu47b

use strict;
use warnings;
use feature 'say';
use Mojo::DOM;
use Mojo::UserAgent;
use Data::Dumper;
use Encode;

my $ua = Mojo::UserAgent->new;

yasu47b

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Data::Dumper;
use Mojo::UserAgent;
use Mojo::JSON('decode_json');

use utf8;
use Encode qw(encode);

yasu47b

use strict;
use warnings;
use 5.010;
use Data::Dumper;
use Mojo::UserAgent;
use Mojo::JSON('decode_json');

my $conf = {
    host=>'localhost',
    user=>'admin',