Question

在perl中如何截取字符串(含有日文)乱码问题求解......

例如：$str ="部品A部A品部品部品部品";
我想按照每五个字节一行的方式来截取，如果正好截取到汉字的中间的话可以少截取一位，如何来实现呢？
截取后的结果是：
部品A
部A品
部品
部品
部品

部（ASSIC码值）：第一字节149第二字节148
品（ASSIC码值）：第一字节149第二字节105

Answer 1

# Use Encode;

perl -MEncode -e 'print "$_\n" for (split /(?=部)/, $ARGV[0])' "部品A部A品部品部品部品"

追问

写的太乱了，你这是在命令行执行的吧？
执行不能通过，全是ERROR.
再说不能固定的判断”部”这一个字，我只是几个例子，各种日文汉字还有全角英文等等。。。

追答

#/usr/bin/perl

use strict;
use warnings;
use Encode;

my $jap = "部品A部A品部品部品部品";

my @unpacker = ();

@unpacker = unpack("U*", $jap);

print "$_\n" for @unpack;

追问

你现在只是把所有的assci码值都打出来了，我的最初目的是按照我想要的长度来进行截取没有换行的超长字符串，如果在我制定的长度位置正好截取到了汉字的第一个或者第二个字节的时候，需要处理一下，以防出现乱码。比如说可以少截取一位。谢谢耐心回答哦！！！！

追答

#!/usr/bin/perl

use strict;
use warnings;
use Encode;
use utf8;

binmode(*STDOUT, ":utf8");

my $jap = "部品A部A品部品部品部品";

my @unpacker = ();

@unpacker = unpack("U*", $jap);

while (scalar @unpacker>0) {
my @temp = splice @unpacker, 0, 3;
print pack "U*", $_ for @temp;
print "\n";
}

# 你的任务还不止这些，继续往下写。。。