怎样保持空行呢?

每日一瓜

UID: 2924
帖子: 130
积分: 299
在线时间: 23 小时

1^# 每日一瓜发表于 2008-12-05 10:57

怎样保持空行呢?

希望对一个文本文件进行操作,
perl脚本如下

while(<>){
if(/  /){
      print ...
}elsif(/  /){
      print ...
}else{
      print ...
}
}

结果原文件中的空行都被过滤掉了，怎样保持住这些空行呢？

请大家帮忙，谢谢了！

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

2^# ynchnluiti 发表于 2008-12-05 11:03

QUOTE:

原帖由每日一瓜于 2008-12-5 10:57 发表
希望对一个文本文件进行操作,
perl脚本如下

while(){
if(/  /){
      print ...
}elsif(/  /){
      print ...
}else{
      print ...
}
}

结果原文件中的空行都 ...

最后的else print了什么。

[Copy to clipboard] [ - ]

CODE:

while(){
print if /^$/;
if(/  /){
      print ...
}elsif(/  /){
      print ...
}else{
      print ...
}
}

每日一瓜

UID: 2924
帖子: 130
积分: 299
在线时间: 23 小时

3^# 每日一瓜发表于 2008-12-05 13:20

问题解决了，谢谢！
最后的else我就写了个print,本来想将文件中的行原样输出，但遇到空行时则变成了什么也不输出，导致空行没有了。