skaji

#!/usr/bin/env perl
use strict;
use warnings;

use HTTP::Daemon;
use HTTP::Tiny;
use HTTP::Response;

my $httpd = HTTP::Daemon->new;
my $url = $httpd->url;

skaji

❯ curl -fsSL https://cpanmin.us | /usr/bin/perl - -Llocal -nq Text::CSV_XS
Successfully installed Text-CSV_XS-1.41
1 distribution installed

❯ /usr/bin/perl -Ilocal/lib/perl5 -MText::CSV_XS -e1
Can't load 'local/lib/perl5/darwin-thread-multi-2level/auto/Text/CSV_XS/CSV_XS.bundle' for module Text::CSV_XS: dlopen(local/lib/perl5/darwin-thread-multi-2level/auto/Text/CSV_XS/CSV_XS.bundle, 1): no suitable image found.  Did find:
	file system relative paths not allowed in hardened programs at /System/Library/Perl/5.18/XSLoader.pm line 71.
 at local/lib/perl5/darwin-thread-multi-2level/Text/CSV_XS.pm line 32.
Compilation failed in require.
BEGIN failed--compilation aborted.

skaji

#!/bin/bash

REPO=library/perl
TOKEN=$(curl -fsSL \
  "https://auth.docker.io/token?scope=repository:$REPO:pull&service=registry.docker.io" \
  | jq -r '.token')

for tag 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
  for retry in {1..5}; do
    JSON=$(curl -fsL \

skaji

queryType:
  name: Query
mutationType:
  name: Mutation
subscriptionType: null
types:
- kind: INPUT_OBJECT
  name: AcceptEnterpriseAdministratorInvitationInput
  description: Autogenerated input type of AcceptEnterpriseAdministratorInvitation
  fields: null

skaji

package main

import (
	"go.uber.org/zap"
	"go.uber.org/zap/zapcore"
)

func main() {
	c := zap.NewProductionConfig()

skaji

概要(簡略版)

EKSクラスタ内に作ったnlbのサービスに、worker nodeからconnectできないことが頻発する。

概要(もう少し詳しく)

以下の状況において:

• region
• ap-northeast-1

skaji

package main

import (
	"context"
	"encoding/json"
	"errors"
	"fmt"
	"net/http"
	"net/http/httptrace"
	"os"

skaji

200 https://cpan.metacpan.org/authors/id/B/BI/BINGOS/perl-5.31.6.tar.xz
200 https://cpan.metacpan.org/authors/id/S/SH/SHAY/perl-5.31.5.tar.xz
200 https://cpan.metacpan.org/authors/id/C/CO/CORION/perl-5.31.4.tar.xz
200 https://cpan.metacpan.org/authors/id/T/TO/TOMHUKINS/perl-5.31.3.tar.xz
200 https://cpan.metacpan.org/authors/id/S/SH/SHAY/perl-5.31.2.tar.xz
200 https://cpan.metacpan.org/authors/id/E/ET/ETHER/perl-5.31.1.tar.xz
200 https://cpan.metacpan.org/authors/id/X/XS/XSAWYERX/perl-5.31.0.tar.xz
200 https://cpan.metacpan.org/authors/id/S/SH/SHAY/perl-5.30.1.tar.xz
200 https://cpan.metacpan.org/authors/id/S/SH/SHAY/perl-5.30.1-RC1.tar.xz
200 https://cpan.metacpan.org/authors/id/X/XS/XSAWYERX/perl-5.30.0.tar.xz

skaji

#!/usr/bin/env perl
use strict;
use warnings;

use IO::Socket::IP;
use Time::HiRes ();
use Carp ();
use IO::Select;

sub ftime () {

skaji

ctx := c.Req.Context()

opts := []
if s, ok := SpanFromContext(ctx); ok {
  opts = append(opts, ChildOf(s.Context()))
}


req, _ := http.NewRequest("GET", "http://yahoo.co.jp")
cxt, cancel := context.WithTimeout(context.Background(), 10*time.Second)