perl实现的文本wrap程序(针对自己vim看小说不便写的）
用vim 看文本，比如小说，特别是从网页上剪下来的文本，是一件很痛苦的事情。由于vim在滚屏时，以段落为优先，所以看一大段大段的文本时，j后发现找不到看哪了- -
$linewidth=75为字符宽度，一个汉字算两个字符。
$tri_bi=3（如果是utf-8的文件的话，设为3；如果是cp936的话，设为2）
文件路径设的是针对linux的，在windows下有bug.
仅学习交流用，实际使用起来，不熟悉原理的话，更麻烦。
----------------------------------------下面是程序
###############################################
#! /usr/bin/perl
## "try_breakline"
##joneykk
######
####invoke method:try_breakline filename
####The filename is consisted of Chinese or English characters.The encoding should be utf-8.
use Encode;
$linewidth=75;
$tri_bi=2;
my $path=$ENV{'PWD'};
$name=$path."//".$ARGV;
open NEWF,">".$name.".klg" or die "can't open file";
while (<>)
{
my $line = $_;
while ($line =~/./)
{
$num = 0;
$line2 = $line;
$x=0;
$buf=0;
while ($line2 =~/./)
{
#####This flag is to mark:there are only character <$linewidth=75,to avoid this part to be lost.
$flag=0;
$buf++;
$line2 = $';
if(ord($&)>=128)
{
$x++;
if($x==$tri_bi)
{
$num+=2;
$x=0;
}
}
else
{
$num++;
}
##################################
if($num>=$linewidth && $x==0)
{
$flag=1;
##########################
###If there is a word in the wrap position, the wrap should be avoid.
$char=substr($line,$buf-1,1);
if($char =~//)
{
while(substr($line,$buf-1,1)=~//)
{
$buf--;
$num--;
}
}
############################
$line3=substr($line,0,$buf);
$breaksign = &getsignlength($line3);
if($buf-$breaksign<20)
{
######break should occur at the sign.
$newline=substr($line,0,$breaksign);
print NEWF $newline,"/n";
$line=substr($line,$breaksign);
last;
}
else
{
$newline=substr($line,0,$buf);
print NEWF $newline,"/n";
$line=substr($line,$buf);
last;
}
}
}
if(!$flag)
{
print NEWF $line;
last;
}
}
print NEWF "/n";
}
close NEWF;
sub getsignlength
{
##the reture value is the length from the beginnig to the sign(included)
my $string=$_;
my $len=0;
while($string =~/，|。|、|？/)
{
$len+=length($`.$&);
$string=$';
}
return $len;
}
页:
[1]