字符串匹配问题？

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

11^# hepower 发表于 2008-01-04 10:14

多谢各位前辈的指点，我先消化一下

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

12^# hepower 发表于 2008-01-04 10:26

S60_3rd_MR_3:com.nokia.s60 (alias 3rd) - default
Series60_v21_CW:com.nokia.series60
S60_3rd_MR_4:com.nokia.s60

就是这样的输入，谢谢

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

13^# perljoker 发表于 2008-01-04 10:44

QUOTE:

原帖由 hepower 于 2008-1-4 10:26 发表
S60_3rd_MR_3:com.nokia.s60 (alias 3rd) - default
Series60_v21_CW:com.nokia.series60
S60_3rd_MR_4:com.nokia.s60

就是这样的输入，谢谢

那他那个方法完全可以啊

[Copy to clipboard] [ - ]

CODE:

use strict; use warnings;

open(DATA,"data"); #data 是你的文件名
while (<DATA>) {
print $1, "\n" if (/^(.+?)\s\(?/); #我把他的空格改成\s了，也许更符合你的文件，试试看吧
}

ly5066113

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

14^# ly5066113 发表于 2008-01-04 10:50

[Copy to clipboard] [ - ]

CODE:

perl -lne 'print $1 if /:([^(]+)\s*/'

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

15^# hepower 发表于 2008-01-04 11:02

也有可能是这样，我不要-default，只要前面的部分，谢谢
S60_3rd_MR_3:com.nokia.s60 (alias 3rd)
Series60_v21_CW:com.nokia.series60 - default
S60_3rd_MR_4:com.nokia.s60

ly5066113

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

16^# ly5066113 发表于 2008-01-04 11:07

[Copy to clipboard] [ - ]

CODE:

perl -lne 'print $1 if /:([^(-]+)\s*/'

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

17^# perljoker 发表于 2008-01-04 11:07

没有一劳永逸的方法，你到底想干嘛啊

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

18^# hepower 发表于 2008-01-04 11:53

呵呵，我就是想提取一些信息，但是输入的信息格式不是很固定，谢谢大家的帮忙了

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

19^# __lxmxn__ 发表于 2008-01-04 13:45

[Copy to clipboard] [ - ]

CODE:

use strict;
use warnings;

open(MYF,"<si.txt") or die "Can't open the file : $! \n";
while(my $line=<MYF>){
if($line=~m/^([^\s]+?)\s($.*?$)?/g){
print $1,"\n";
}
}
close MYF;