それ Perl なら（以下略 sub convert { my @block = split /#/, $_[0], 2; $block[0] =~ tr/0-9A-Z/9876543210a-z/; return join '#', @block; } 再帰版。 sub convert2 { my $c = substr $_[0], 0, 1; return $c eq '#' ? $_[0] : do { $c =~ tr/0-9A-Z/987…

以下について教えてください （ C# と VB.NET の質問掲示板） タイトルが不明確だとか、質問の仕方がなってないだとか、そう云った小言は全て省略して、ネタで書いてみました。 ……出来上がってみたらムダに長くて面白かったので、記事として残しておきます。…

perl - ネコ演算子と<*glob*>とFile::Glob::Slurp (404 Blog Not Found) 長年 Perl を使ってるけど、未だに glob はよく判ってなかったりするのですが。。。 なるほど、こんな風に使う方法があるんですねぇ。 これはすごく勉強になりました。