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
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