$buf=pack("C*", map { ord(getc(IN))^($_&0xff) } (0 .. $size-1)); foreachでもできるけど右辺に余計な変数がないのが美しい。TMTOWTDI。
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。