ネタが無いのでこんなの投下。Pythonの様にインテンドされてブロック形式になっているテキストファイルを、ブロック単位で逆順にする。 #!/usr/bin/perl -w use strict; use utf8; my $blockStringBuff = ""; my @blockArrayBuff = (); while (<>) { chop();…