perlネタ 仕事で、ファイル名を一括変更する必要があり、作ってみた。 use strict; use warnings; use File::Copy 'move'; my ($dir, $from, $to) = @ARGV; chdir $dir or die "NG $dir:$!"; my @all_files = glob "*.pdf"; my $to_all_file; foreach my $al…

awkネタ ドラゴンカーブ 同じ向きに何回も折り曲げ、折り目が直角になるように開いて出来る曲線 この曲線は自分自身と接することはあっても交わりはしない。 描き始めた点を中心として90度、180度、270度開園して出来る曲線は元の曲線と交わらない 位数order…

awkネタ 前回と同様に、一山の石から交互に石を取る。 取る石の数は、相手が直前に取った石の数の２倍を超えてはならない。 最後に石を取ったものの勝ち。 ただし、最初に全部の石を取ってはならならい。 パスは出来ない。 #!/usr/bin/awk -f BEGIN{ f[1] = …