Skip to content

Instantly share code, notes, and snippets.

View Songmu's full-sized avatar

Masayuki Matsuki Songmu

590 followers · 217 following
View GitHub Profile
@Songmu
Songmu / mackerel-graph-builder.html
Last active June 21, 2016 09:27 — forked from stanaka/mackerel-graph-builder.html
save this html as a local file, then open the file.
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<title>Mackerel Graph Builder</title>
<script src="https://cdn.jsdelivr.net/lodash/4.13.1/lodash.min.js"></script>
<script type="text/javascript">
var $ = function(id) {
return document.getElementById(id)
};
@Songmu
Songmu / gist:a4136fc99fc67dfeb61d
Created July 7, 2015 08:00
runtime: garbage collector found invalid heap pointer *(0xc08207e720+0x18)=0xf s=nil
runtime: found *(0xc082043988+0x8) = 0xc08207e720+0x0
fatal error: bad pointer
runtime stack:
runtime.throw(0x918359)
c:/go/src/runtime/panic.go:491 +0xad fp=0x2aef9e8 sp=0x2aef9b8
scanblock(0xc082043988, 0x128, 0x813714)
c:/go/src/runtime/mgc0.c:415 +0x990 fp=0x2aefb28 sp=0x2aef9e8
scanframe(0x2aefc30, 0x0, 0x101)
@Songmu
Songmu / correct-dpi
Created July 1, 2015 07:07
DPI直すやつ
#!/usr/bin/env perl
use 5.014;
use warnings;
my $file = $ARGV[0];
system qw/sips -d profile --deleteColorManagementProperties/, $file;
my $dpiWidth = `sips -g dpiWidth $file | awk '/:/ {print \$2}'`;
my $dpiHeight = `sips -g dpiHeight $file | awk '/:/ {print \$2}'`;
my $pixelWidth = `sips -g pixelWidth $file | awk '/:/ {print \$2}'`;
@Songmu
Songmu / ebook2kindle.pl
Created April 12, 2015 17:11
#!/usr/bin/env perl
use 5.014;
use warnings;
use utf8;
my $ebook_convert = '/Applications/calibre.app/Contents/MacOS/ebook-convert';
my $file = shift;
if (!$file || ! -f $file) {
die "no files are specified!\n";
@Songmu
Songmu / orm_bench.pl
Last active August 29, 2015 14:12
#!/usr/bin/env perl
use strict;
use warnings;
use Benchmark qw(cmpthese);
use DBI;
use Test::More;
{
package DBIC::Schema::Result::User;
use parent qw/DBIx::Class::Core/;
@Songmu
Songmu / gist:a38e06f96948e3029217
Created December 17, 2014 09:41
const.t
use strict;
use warnings;
use constant {HOGE => 10};
use Test::More;
use Test::Mock::Guard;
{
my $g = mock_guard main => { HOGE => sub { 100 }};
is HOGE, 10;
@Songmu
Songmu / Hoge.pm
Last active August 29, 2015 14:11
package Hoge;
use strict;
use warnings;
use utf8;
use MyCon;
sub hage {
HOGE;
}
@Songmu
Songmu / crlf.pl
Created November 17, 2014 15:29
use 5.014;
use strict;
use warnings;
while (my $d = <DATA>) {
say ord($_) for split //, $d;
say '';
}
__DATA__
@Songmu
Songmu / gist:dd981a15e1947b5f6b76
Created November 17, 2014 15:04
use 5.014;
my $str = "
abc";
say ord($_) for split //, $str;
@Songmu
Songmu / drozo.rb
Last active August 29, 2015 14:07
#!/usr/bin/env ruby
require 'fileutils'
require 'securerandom'
def main
user = IO.popen("whoami", "r+").gets.chomp
# capture png file
tmpfile = "/tmp/image_upload#{$$}.png"