我在玩这段代码以打印字符列表:
perl -e 'print join(" ", map { sprintf "%02x", ord } grep /\s/, map { chr } 0x0 .. 0x7F )'
有没有更简单的写map { chr } 0x0 .. 0x7F
的方法?
我尝试过:
map \&chr 0x0 .. 0x7F
但是出现语法错误。
[map { chr } 0x00 .. 0x7F
已经很简洁了,但是除了map BLOCK LIST
语法之外,还有map EXPR,LIST
语法。
map chr,0x00..0x7f
map chr,0..127
当然可以使用
"\x00".."\x7F"