Perl

本类阅读TOP10

·在Perl中使用sendmail发送MIME邮件
·Cultured Perl: 吸引 C 和 Java 程序员目光的 Perl 5.6
·传奇程序员Larry Wall:Perl的乐趣
·深入研究表单提交方式:GET/POST
·Bioperl的简介
·吸引WEB程序员目光的Mason
·perl如何内嵌html。
·中英文混合字符截取
·从一个安装文件看CGI的安全性
·PERL连接ACCESS数据库

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
中英文混合字符截取

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

用perl截取字符串,字符串中含有中文、英文、数字和各种符号,也包含中文标点符号,截取一定数量的字符,并且截取之后中文是完整的,不会出现乱码或问号。
sub makelen($$)
  {
   my($sstr,$slen)[email protected]_;
   my $makelen,$parity;
   $mslen=length($sstr);
   if($mslen>$slen)
     {
         for($mn=0;$mn<$slen;$mn++) #在要求的长度内
           {
            $ss=substr($sstr,$mn,1);
            if(ord($ss)<127) #为英文
              {
                  $parity+=1;
              }
           }
          if($parity%2==1) #含英文长度为奇数
           {
            if($slen%2==1) #如果所要求的长度也为奇数
                         {
                          $tmpstr=substr($sstr,0,$slen);
                     }
                   else #所要求的长度为偶数
                     {
                      $tmpstr=substr($sstr,0,$slen-1);
                     }
           }
         else #含英文长度为偶数或者为0,0也为偶数
           {
            if($slen%2==1) #如果所要求的长度为奇数
                         {
                          $tmpstr=substr($sstr,0,$slen-1);
                     }
                   else #所要求的长度为偶数
                     {
                      $tmpstr=substr($sstr,0,$slen);
                     }
           }
         $makelen=$tmpstr;
     }
   else
     {
         $makelen=$sstr;
     }
   return $makelen;
  }




相关文章

相关软件




月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有