View http-ob.pl
#!/usr/bin/env perl
# 2018/06/16
# とても素朴なURL外形監視
use strict;
use warnings;
use Net::SMTP;
use HTTP::Tiny;
use Data::Dumper;
View seiza.pl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Encode;
use HTTP::Tiny;
binmode STDOUT, ':utf8';
View yodobashi-price-watch.gs
var mailto = "YOUR_PHONE_ADDRESS";
// 定期的に呼ばれる
function walkWritePrice () {
var spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
var sheet = spreadsheet.getSheetByName("価格ウォッチ");
if ( !sheet ) return;
var dateCell = _dateInsertionCell(sheet);
dateCell.setValue(today());
var urlColumnNumber = 2;
View move-to
#!/bin/bash
# xtetsuji 2018/04/10
# Usage:
# move-to DIR FILE1 FILE2 ...
#
# mv FILE1 FILE2 ... DIR ; 移動元ファイル群と移動先の指定が逆なもの
#
# これは xargs で役立つ
# e.g.:
# 4並列、一度の移動プロセスで最大100ファイルを目的のディレクトリへ移動させる場合
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