severity 598065 important
thanks
Here is proof that Text::WrapI18N wraps wrongly.
You can use any mixed ASCII and Chinese etc. UTF-8 input file.
Here is what Text::WrapI18N makes:
$ < 201011 sed /^#/d|tr \\n \ |tr -s \ |tr -d \ |perl -MText::WrapI18N -wnle
'$Text::WrapI18N::columns='${columns-77}';print wrap("","",$_)' |perl -pwle
's/[[:ascii:]]/./g'|pr -l 48 -n
2010-10-21 08:35 Page 1
1 ............台北縣新店市建國路...號.樓
2
.............................................................................
3
.............................................................................
4 ................................四.晚上.........米倉咖啡台北市龍泉街..號
5 ..............................轉
6
.............................................................................
7 .....................幸蒨............................野生動物保育研究所
8
.............................................................................
9
.............................................................................
10 ...............................................琳宜
11 ...........................................高雄市三民區撫順街..號.樓
12 ...........................高雄市三民區力行路...號
13
.............................................................................
14
.............................................................................
15 ...........武妹.........................................................高雄
16 縣鳳山市鳳松路.....號
17
.............................................................................
18 ......小港.....................往大坪頂.於大坪頂.電信局站.下車
19 .........................高雄市小港區高坪十五路...巷..號我直接..........週五
20 .............前到府
21
.............................................................................
22
.............................................................................
23 .....................................高雄市左營區崇實路...巷.號
24 ....................................................................高雄縣鳳
25 山市南進四街..號
26
.............................................................................
27 ....高雄市左營區崇德路...號高雄市新興區黃海街..號.樓彩蝶中年女性關懷諮詢專線
28 ...........................................................高雄市新興區中山二
29 路...號.樓之.，西堤牛排樓上
30 .................................................................北屯崇德六
31 .........................................
Note the spurious extra newlines. And here is what I think the output
should look like instead. I had to use a different function to make it:
$ < 201011 sed /^#/d|tr -d '\n '|perl -C -wne '$c=0;for(split//){print $_;use
Text::CharWidth qw(mbwidth); $c+=mbwidth($_); next unless $c>='${columns-77}';
print "\n"; $c=0;}'|perl -pwle 's/[[:ascii:]]/./g'|pr -l 48 -n
2010-10-21 08:38 Page 1
1 ............台北縣新店市建國路...號.樓.......................................
2
.............................................................................
3
......................................................................四.晚上
4 .........米倉咖啡台北市龍泉街..號..............................轉............
5
.............................................................................
6 .........幸蒨............................野生動物保育研究所..................
7
.............................................................................
8
.............................................................................
9
.............................琳宜...........................................高
10 雄市三民區撫順街..號.樓...........................高雄市三民區力行路...號....
11
.............................................................................
12
.............................................................................
13 .......武妹.........................................................高雄縣鳳山
14 市鳳松路.....號..............................................................
15 .....................小港.....................往大坪頂.於大坪頂.電信局站.下車
16 .........................高雄市小港區高坪十五路...巷..號我直接..........週五.
17
............前到府...........................................................
18
.............................................................................
19 .......................................................高雄市左營區崇實路...巷
20
.號....................................................................高雄縣
21 鳳山市南進四街..號...........................................................
22 ......................高雄市左營區崇德路...號高雄市新興區黃海街..號.樓彩蝶中年
23 女性關懷諮詢專線...........................................................高
24 雄市新興區中山二路...號.樓之.，西堤牛排樓上..................................
25 ...............................北屯崇德六....................................
26 .....
(I removed the ASCII peoples names etc. replacing with dots to protect
the innocent.)
--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
