ITPub博客

首页 > IT职业 > IT生活 > 去掉两个字人名中间的空格

去掉两个字人名中间的空格

原创 IT生活 作者:jetgm 时间:2019-04-26 13:12:06 0 删除 编辑

while(<>){
@name=split (" ",$_);
open FH,">>name_file.txt";
my $i=0;
while ($i <=$#name){
$length=length($name[$i])/2;
if ($length>1) {
print FH "$name[$i] ";
}
elsif($length=1){
print FH "$name[$i]$name[$i+1] " ;
$i+=1;

}
$i+=1;
}
print FH "n";
}
close FH;

[@more@]

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/6456/viewspace-1015292/,如需转载,请注明出处,否则将追究法律责任。

下一篇: _vimperatorrc
请登录后发表评论 登录
全部评论

注册时间:2002-02-06

  • 博文量
    44
  • 访问量
    34619