xtetsuji

#!/usr/bin/env perl
# 2015/02/27 OGATA Tetsuji (@xtetsuji)
# MIT License

use strict;
use warnings;

use Encode;
use JSON::PP;

xtetsuji

#!/usr/bin/env perl
use strict;
use warnings;
use feature qw(say);
use utf8;
binmode STDOUT, ':utf8';
use Encode;

# 都道府県の漢字表記を北海道から沖縄県まで
my @prefs = (

xtetsuji

mailq-list.pl - Postfix mailq viewer.

DESCRIPTION

mailq-list.pl is Postfix mailq viewer.

Normal Postfix mailq command shows only envelope information. If you want to know header information, you run postcat command every each time.

maiq-list.pl supports that you can show all queues' header information.

xtetsuji

perl -MMath::BigInt -E 'say Math::BigInt->new("1209")->bpow("2023")->to_base(10) =~ s/(?<=\d)(?=(?:\d\d\d)+(?!\d))/,/gr =~ s/((?:\d\d\d,){10})/$1\n/gr'|

xtetsuji

#!/bin/bash
set -eu

gh api /user | jq -r '"\(.id)+\(.login)@users.noreply.github.com"'

xtetsuji

#!/bin/bash
# https://docs.docker.com/engine/install/ubuntu/
set -eu

# root でなかったら終了
if [ "$(id -u)" != "0" ]; then
  echo "This script must be run as root." 1>&2
  exit 1
fi

xtetsuji

class MajiDe {
    /**
     * MajiDe オブジェクトを作成する
     * @param {Function} func - コールバック
     */
    constructor(func) {
        if ( !func || typeof func !== "function" ) {
            throw new Error("第一引数は関数にして下さい");
        }
        this.func = func;

xtetsuji

#!/bin/bash
set -eu

browser=open

default_gw=$( route -n get 0.0.0.0 | grep gateway | sed -e 's/.*: //' )

if [ "_${1:-}" = "_-w" ] ; then
    "$browser" "http://$default_gw/"
fi

xtetsuji

2^2 + 10^2 + 32^2 = 1128
2^2 + 32^2 + 10^2 = 1128
10^2 + 2^2 + 32^2 = 1128
10^2 + 32^2 + 2^2 = 1128
14^2 + 16^2 + 26^2 = 1128
14^2 + 26^2 + 16^2 = 1128
16^2 + 14^2 + 26^2 = 1128
16^2 + 26^2 + 14^2 = 1128
26^2 + 14^2 + 16^2 = 1128
26^2 + 16^2 + 14^2 = 1128

xtetsuji

#!/usr/bin/perl
# "pflog" enhancement for parsing maillog of postfix 2.3 or higher version.
# "pflog" see: http://www.tmtm.org/ruby/pflog/pflog-0.3

use strict;
use warnings;

use Time::Local;
use Getopt::Long;
#use Data::Dumper;