Perl怎样去除空白行?文本如下:Hello,how are you?I'm fine thank you.And you?I'm fine too.The End如何除空白行,使文本只剩下3行有字的?次序位置都不变.

来源:学生作业帮助网 编辑:作业帮 时间:2024/08/30 21:50:56
Perl怎样去除空白行?文本如下:Hello,how are you?I'm fine thank you.And you?I'm fine too.The End如何除空白行,使文本只剩下3行有字的?次序位置都不变.
x) H-yl}_\|3XclZ9k.kzY99: E iy %y !=Ǽ4|T׼I{"[d~-vZd ~6g?['{{]yOg$q7X`1|V`_lyHfFOv/}>eųv|pŋ}6{E:Ou?];n~XTV**A<Bq3R̼<

Perl怎样去除空白行?文本如下:Hello,how are you?I'm fine thank you.And you?I'm fine too.The End如何除空白行,使文本只剩下3行有字的?次序位置都不变.
Perl怎样去除空白行?
文本如下:
Hello,how are you?I'm fine thank you.
And you?I'm fine too.
The End
如何除空白行,使文本只剩下3行有字的?次序位置都不变.

Perl怎样去除空白行?文本如下:Hello,how are you?I'm fine thank you.And you?I'm fine too.The End如何除空白行,使文本只剩下3行有字的?次序位置都不变.
可以用正则表达式替换,例子程序:
my $s="Hello, how are you? I'm fine thank you.
And you? I'm fine too.
The End";
print $s;
print "\n\n";
$s =~ s/\n+/\n/g;
print $s;