View ntable-numbers.pl
#!/usr/bin/perl
use strict;
use warnings;
use Memoize qw(memoize);
memoize("get_variation_hash");
for my $n (9..1_000_000) {
View phs
#!/bin/bash
# phs - popup host ssh
# xtetsuji 2016/11/17
if [ "$1" ] && [ "_$1" = _-h -o "_$1" = _--help ] ; then
exec perldoc $0
fi
declare DEBUG
declare PHS_SCREEN_COMMAND PHS_TMUX_COMMAND PHS_OPEN_MODE PHS_SSH_COMMAND
View recursive-sum-digit.pl
#!/usr/bin/perl
use strict;
use warnings;
use constant MAX_NUMBER => 1_000_000;
use List::Util qw(sum);
my %stat;
for (my $i = 1; $i < MAX_NUMBER; $i++) {
View pptar
#!/bin/bash
# xtetsuji 2017/10/30
# pptar - progress printing tar
# This is alpha quality :)
# https://twitter.com/xtetsuji/status/924861905893593088
SLEEP_SECONDS=1
TAR_FILE_LOG=/tmp/tar_file.$$.log
function kill_children {
View refsub.pl
#!/usr/bin/perl
use strict;
use warnings;
# chomp2
# Is this chomp?
# chomp erases only ONE "\n" on end of scalar.
# chomp2 erases ALL continuous "\n" on end of scalar.
sub chomp2 (\$) {
View linux-gdrive-install.sh
#!/bin/bash
# xtetsuji 2017/08/28
# linux-gdrive-install.sh
#
# e.g.
# curl -L https://git.io/v5GCK | bash
#
# This script is store as
# https://git.io/v5GCK
# and
View days_ago.pl
#!/usr/bin/perl
use strict;
use warnings;
sub days_ago {
# 1引数か2引数かを厳密に見る
my ($time, $n);
if ( @_ == 1 ) {
$time = shift;
View wp-cli-install.sh
#!/bin/bash
# e.g.
# ssh server "curl -L git.io/v7xmi | bash"
# This script is stored as
# git.io/v7xmi
# and
# https://gist.github.com/xtetsuji/e620792db74640a81906920b9254ec81
set -eu
View libniz-series.pl
#!/usr/bin/perl
use strict;
use warnings;
use Math::Trig qw(pi);
use constant MAX_NUMBER => 100_000;
use constant MAX_NUMBER_LENGTH => length MAX_NUMBER;
View chrome-wand
#!/usr/bin/env perl
use strict;
use warnings;
use Scalar::Util qw(openhandle);
use IPC::Open2 qw(open2);
use Getopt::Long qw(:config posix_default no_ignore_case bundling auto_help);
use Pod::Usage qw(pod2usage);