xtetsuji

@xtetsuji ➜ /workspaces/codespaces-blank $ php tick_test.php 
Xdebug: [Step Debug] Could not connect to debugging client. Tried: localhost:9003 (through xdebug.client_host/xdebug.client_port).
Executing /workspaces/codespaces-blank/tick_test.php on line 9
Hello
Executing /workspaces/codespaces-blank/tick_test.php on line 12
Executing /workspaces/codespaces-blank/tick_test.php on line 13
Executing /workspaces/codespaces-blank/tick_test.php on line 14
Result: 10
Executing /workspaces/codespaces-blank/tick_test.php on line 15

xtetsuji

#!/bin/bash
set -eu

PRESET="PresetAppleM4V1080pHD"

function usage {
    # local error_code=${1:-0}
    cat <<EOF
Usage:
    mov2mp4.sh input.mov

xtetsuji

#!/usr/bin/env perl
use strict;
use warnings;
use feature qw(say postderef);
use Data::Dumper;

my $table_col_separator = " | ";
my $table_first_row_separator = "| ";
my $table_last_row_separator =  " |";

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