请帮忙看看折行的问题

zhaimeng

每行长度110个英文字符  行数不定  想在每行的110个英文字符结尾加个<br>

能折行  谁能帮帮忙 谢谢

zhaimeng

忘了写了 使用的是perl

wingger

use Text::Wrap;

zhaimeng

#!/usr/bin/perl -w
use CGI qw/:standard/;
use Text::Wrap
print "Content-type: text/html\n\n";
  
@text="12345zh中文rrrt";

$Text::Wrap::columns = 11;
print wrap('', '<br>', @text);

columns = 11
输出结果

12345zh中?
膔rrt

columns = 12 正常

输出结果

12345zh中文
rrrt