看板 Perl 關於我們 聯絡資訊
#!/usr/bin/perl use encoding 'big5', STDIN => 'big5', STDOUT => 'big5'; my $str= "我I愛Love你You"; my @array = split(//,$str); foreach(@array) { print $_,$/; } 或者不用 encoding 模組 my @array = $str =~ /[\xA1-\xF9][\x40-\x7E\xA1-\xFE]|\w/g; -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.71.40
imce:成功了~3Q 09/08 17:06
vince730828:真厲害 09/08 18:28