有个问题呢

kairi

1^# kairi 发表于 2007-09-10 17:41

怎么去掉文档中的空白行?
比如
test.txt
abc
abc

abc

ttyuren

2^# ttyuren 发表于 2007-09-10 18:23

#!/usr/bin/perl -w
use strict;
open FILE,"test.txt";
while (my $line =<FILE>) {
chomp $line;
print $line."\n" if ($line !~ /^\s*$/);
}
close FILE;

perljoker

3^# perljoker 发表于 2007-09-11 02:10

s/^\s*\n$//

kairi

4^# kairi 发表于 2007-09-11 09:54

\s是什么意思？

flw

5^# flw 发表于 2007-09-11 09:56

QUOTE:

原帖由 kairi 于 2007-9-11 09:54 发表
\s是什么意思？

为什么不去看手册呢？

kairi

6^# kairi 发表于 2007-09-11 09:59

什么手册？
从书里找太慢了。。

perljoker

7^# perljoker 发表于 2007-09-11 10:11

QUOTE:

原帖由 kairi 于 2007-9-11 09:59 发表
什么手册？
从书里找太慢了。。

啊，你去随便一本书里找正则表达式那一章就ok了

kairi

8^# kairi 发表于 2007-09-11 10:17

汗 \s原来是空格以前都没机会用到呢

formalin14

9^# formalin14 发表于 2007-09-12 11:15

QUOTE:

原帖由 kairi 于 2007-9-11 10:17 发表
汗 \s原来是空格以前都没机会用到呢

是空白不是空格.

$str =~ s/^\s+$//m;

kairi

10^# kairi 发表于 2007-09-12 11:29

空白跟空格有区别么？空白都是用空格来表示的吧