【モダン推奨】Perlについての質問箱 50箱目

[418 デフォルトの名無しさん 2014/01/18(土) 21:05:51.45]

せめて10レスくらい読めよ
$ perl -le 'print for unpack q{C*}, q{もじ}'
227
130
130
227
129
152