有个问题呢

kairi

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

abc

ttyuren

#!/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

s/^\s*\n$//

kairi

\s是什么意思？

flw

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

为什么不去看手册呢？

kairi

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

perljoker

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

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

kairi

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

formalin14

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

是空白不是空格.

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

kairi

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