久々のperlネタ パソコンで電卓を叩く時、私は perl -de 0; とするのですが、残念ながらperlのデバッガにはデフォルトでヒストリー機能がついていない。 Term::ReadLine::Gnuをcpanから入れると、ヒストリー機能が使えるのだが、インストールするのに手間取…

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…

perlとawkネタ カジノの定番、ブラックジャック。 ゲームを１回行うには、最低１枚コインが必要です。 勝てば２枚のコインを得られますが、負けると掛けたコインが没収されます。 最初に１枚だけコインを持っており、１枚ずつ掛けていったとき、ゲームを４回…

プログラミングネタ フィボナッチ数列のうち、各桁の数字を足した数で割り切れる数を以下の例に続けて小さいほうから5個求めてください。 2 → 2 ÷ 2 3 → 3 ÷ 3 5 → 5 ÷ 5 8 → 8 ÷ 8 21 → 21 ÷ 3・・・2 + 1= 3で割る 144 → 144 ÷ 9・・・1 + 4 + 4 = 9で割る…

さて、今まではawkを使ってパズルを解いてきましたが、今回はperlで解いてみたいと思います。 なかなかawkと違ってperlは汎用性のある分、覚えることが多いのですが、それだけ応用も効くということでしょうか。 では、早速やってみましょう。 ルーレットの数…