perl 多行变一行

荼蘼爱学习

小女子初学perl，遇到一难题，如图：

请问怎么把中间的那个拼音部分去除啊？
多谢指导~

荼蘼爱学习

说错了，是一行变多行。。。。。

荼蘼爱学习

前辈们帮帮忙~ 这种有可能实现吗？

flyingdancen

你的标题，解释与问题内容还是不相干呀，或许我应该推荐你去看 提问的智慧？

一般perl处理这种字符串可以用正则
。
。
。
。

然而我并不会，windows下不熟悉，或许你可以用s///， 从看起来非常蛋疼的标点入手

substr函数

回复 3# 荼蘼爱学习


有可能实现

cufengye

while(<>)吃进

根据正则匹配，遇到./?/!中断，再遇到中文匹配
($1) ($2=.*) ($3) 可以自己拼。


另外楼主是妹子哦，好开森，求交往

xiaoxingan99

cufengye 发表于 2015-06-23 17:01
while()吃进

根据正则匹配，遇到./?/!中断，再遇到中文匹配

楼主好像不要把.都断行吧？英文里面也有.号
是不是可以把中文字的编码范围作为匹配的参数啊？中文有编码范围么？

xiaoxingan99

刚在论坛上找到的，下面这行可以匹配中文字
$in=~/([\x80-\xFF][\x80-\xFF])

xiaoxingan99

open A, "e:/A.txt";
foreach $a (<A>){
        $a=~s/([\x80-\xFF][\x80-\xFF])/\n$1/;
        print $a;
        }

104359176

最好把文本贴上来，否则没有人知道你的文本的编码。