プログラミングの地力を上げたいなぁと思い、数学パズルっぽいのをコードで解いています。棋力を上げるために詰将棋を解くようなノリです。ある問題を解くために「0から9の数字が全て出てきたら終了」という処理が欲しかったので書いてみました。 use strict…

2018年7月某日、グーグルがSSL/TLS未対応サイト絶対許さんマンになってから、「うちのサイトもなんとかしてほしい」という問い合わせが増えてきました。「保護されていない通信」とかデカデカと表示されたら、流石に焦りますよね。オープンソースのおかげで…

『初めてのPerl 第7版』を練習問題もこなしつつ、自分史上最高なんじゃないかというくらい丁寧に読み進めています。この本、過去の版のものを何度か読んでたんですが、ビット演算子とかプロセス管理とか新しい学びがいっぱい。ホントに適当に読んでたんだな…

HTMLの中のコンテンツ部分だけ抽出したい、という欲望がムクムクと湧いてきたのでPerlの正規表現で書いてみました。これまでも、HTMLタグを取り除く処理は書いたことあるんですが、「欲張りでない量指定子」(Non-Greedy Matches)が理解できてなかったので、J…

やりたいこと '201808' ↑みたいな引数を渡したら、 [ qw( 20180801 20180802 20180803 20180804 20180805 20180806 20180807 20180808 20180809 20180810 20180811 20180812 20180813 20180814 20180815 20180816 20180817 20180818 20180819 20180820 20180…

my @arr = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13); ↑ こういう感じの配列を、 my $expected = [ [ 1, 2, 3, 4 ], [ 5, 6, 7, 8 ], [ 9, 10, 11, 12 ] ]; ↑ こういう感じに分割したい欲望に駆られました。この場合は、13個の要素を持つ配列を4つの要素…