如何解决这样两个问题

higojin

UID: 6145
帖子: 12
积分: 27
在线时间: 10 分钟

1^# higojin 发表于 2008-06-20 09:10

如何解决这样两个问题

我现在想在一个程序中调用一个系统命令

节选如下：
1）
$a=<STDIN>;
system "grep -v bb $a > tmp";
system "sed 's/^[ \t]*//' tmp > tmp2";
上述运行的结果是：不会追加到tmp内，感觉非常奇怪。

2）
如果不用系统命令如何简单的用perl 来实现
所有行前有空格的行
能把行前的所有空格删除
比如
a b c
变成
a b c

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-06-20 09:22

s/^[ \t]*//

sammijanie

UID: 4526
帖子: 125
积分: 287
在线时间: 21 小时

3^# sammijanie 发表于 2008-06-20 09:47

楼上的这个方法是系统命令
我想问在perl 内如何不用系统命令去实现

难道是
$_=s/^[ t]//g

不对吧

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

4^# apile 发表于 2008-06-20 13:23

open(FF);
while(<FF>){
next if (/bb/);
s/^\s+//;
push(@ary,$_);
}
close(FF);

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

5^# 不死草发表于 2008-06-20 17:47

呵呵，就如楼上所言，用正则式。。。