- Package:
- libtext-wrapi18n-perl
- Source:
- libtext-wrapi18n-perl
- Submitter:
- Date:
- 2010-10-21 01:09:04 UTC
- Severity:
- important
How does it know to break after the character '號'?
The man page doesn't mention anything special, and
man Text::Wrap(3perl) just says $Text::Wrap::break is '\s';
If it is using \w+ it doesn't mention it.
Please document it further. Thanks.
$ cat r.pl
use Text::WrapI18N;
$Text::WrapI18N::columns=30;
print wrap("","","路111號3F-13http://example77777");
print wrap("","","路111號3F-13http://example8888");
$ perl -wl r.pl
路111號
3F-13http://example77777
路111號3F-13http://example8888
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.)