Skip to content

Instantly share code, notes, and snippets.

View skaji's full-sized avatar

Shoichi Kaji skaji

101 followers · 46 following
  • Kanagawa, Japan
  • 09:34 (UTC +09:00)
View GitHub Profile
@skaji
skaji / gist:e379367257d57e46bec1a57013dd6b1e
Created August 4, 2019 00:12
❯ hostname
MBP2013
❯ perl -MLWP::Simple=getprint -MHTTP::Daemon -le 'my $url = HTTP::Daemon->new->url; print $url; getprint($url)'
http://mbp2013:60129/
500 Can't connect to mbp2013:60129 (nodename nor servname provided, or not known) <URL:http://mbp2013:60129/>
@skaji
skaji / gist:7a582be2336d1701626af622001b011f
Created August 3, 2019 00:17
❯ for ubuntu_version in 14.04 16.04; do for perl_version in 5.8 5.10 5.12 5.14 5.16 5.18 5.20 5.22 5.24 5.26 5.28 5.30; do printf "ubuntu_version %s, perl_version %4s, http_status %d\n" $ubuntu_version $perl_version $(curl -X HEAD -w '%{http_code}\n' -s https://storage.googleapis.com/travis-ci-language-archives/perl/binaries/ubuntu/$ubuntu_version/x86_64/perl-$perl_version.tar.bz2); done; done
ubuntu_version 14.04, perl_version 5.8, http_status 200
ubuntu_version 14.04, perl_version 5.10, http_status 200
ubuntu_version 14.04, perl_version 5.12, http_status 200
ubuntu_version 14.04, perl_version 5.14, http_status 200
ubuntu_version 14.04, perl_version 5.16, http_status 200
ubuntu_version 14.04, perl_version 5.18, http_status 200
ubuntu_version 14.04, perl_version 5.20, http_status 200
ubuntu_version 14.04, perl_version 5.22, http_status 200
ubuntu_version 14.04, perl_version 5.24, http_status 200
@skaji
skaji / server.go
Created August 2, 2019 03:30
package main
import (
"context"
"fmt"
"log"
"net/http"
"os"
"os/signal"
"syscall"
@skaji
skaji / client.go
Created July 28, 2019 20:15
package main
import (
"context"
"net"
"net/textproto"
"time"
)
// Client is
@skaji
skaji / golint-comment.pl
Created July 28, 2019 15:54
#!/usr/bin/env perl
use strict;
use warnings;
sub comment_for {
my $line = shift;
if ($line =~ /^ (type|func|var) \s+ (\(.*?\))? \s* ([A-Z]\w+) /x) {
my ($kind, $is_method, $name) = ($1, $2, $3);
if ($is_method && grep { $name ne $_ } qw(String Error)) {
# skip
@skaji
skaji / main.go
Created July 2, 2019 09:36
package main
import (
"context"
"fmt"
"time"
)
type event string
type message string
@skaji
skaji / perl6.md
Last active April 25, 2019 15:04

I want to clarify what "distribution name" and "distribution version" are.

Let's say you have the following Perl6 distribution:

Changes
LICENSE
META6.json
README.md
lib/Your/Some-Module.pm6
@skaji
skaji / test4-app.yaml
Created April 22, 2019 05:24
apiVersion: apps/v1
kind: Deployment
metadata:
labels:
app: test4-app
name: test4-app
namespace: default
spec:
replicas: 2
revisionHistoryLimit: 5
@skaji
skaji / gist:75ac22eda13e708eb8b0de68b99d81fe
Created April 22, 2019 01:01
❯ latest-perl-build.sh
++ plenv root
+ ROOT=/Users/skaji/env/plenv
++ plenv versions --bare
++ perl -le 'chomp(@a = sort grep { /^5\.\d{2}\.\d+$/ } <>); print $a[-1]'
+ LATEST=5.28.2
+ [[ -z 5.28.2 ]]
+ plenv global 5.28.2
+ plenv reset -
cannot remove directory for 5.28.2/lib/perl5/site_perl/5.28.2/darwin-2level: No such file or directory at /Users/skaji/env/plenv/plugins/plenv-reset/bin/plenv-reset line 45.
@skaji
skaji / 00_REAMD.md
Last active January 16, 2019 15:16

Reproduce step

First run run.sh which do

  • run cassandra
  • create keyspace test_keyspace
  • create table test_table
  • insert 5 rows

And run main.go which reuse the same query instance.