tcl
代码: 全选
; tclsh
% string length I
1
% string length 我
1
% exit
代码: 全选
; perl -de 42
Loading DB routines from perl5db.pl version 1.31
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(-e:1): 42
DB<1> print length 'I'
1
DB<2> print length '我'
3
DB<3> q
代码: 全选
; irb
irb(main):001:0> 'I'.length
=> 1
irb(main):002:0> '我'.length
=> 3
irb(main):003:0> quit
代码: 全选
; python2
Python 2.6.4 (r264:75706, Nov 24 2009, 21:34:34)
[GCC 4.0.1 (Apple Computer, Inc. build 5370)] on darwin
Type "help", "copyright", "credits" or "license" for more information.
>>> len('I')
1
>>> len('我')
3
>>> len(u'我')
3
>>> len(u'我'.encode('utf8'))
6
代码: 全选
% set 杯具 悲劇
悲劇
% puts $杯具
悲劇