字符串匹配问题？

hepower

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

1^# hepower 发表于 2008-01-03 19:27

字符串匹配问题？

我能得到 xxx \n 或者 xxx ( ddd ) \n 就是有时有括号，有时没有，括号里的字符串也不固定。
这两种字符串，我想提取xxx部分，请问怎么写？
我是这么写的

if($_ =~ /(.+?) \(*.+?\)* \n/)
{
$1
}
好像$1总是空，怎么写啊，谢谢

alexru

UID: 11790
帖子: 75
积分: 172
在线时间: 8 小时

2^# alexru 发表于 2008-01-03 20:04

不很明白你的意思,到底要什么?

hepower

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

3^# hepower 发表于 2008-01-03 20:26

呵呵  就是我得到的Input字符串的格式是xxx \n  或者  xxx  ( ddd ) \n
我想取xxx  部分，怎么取，（ddd）这部分有时有有时没有，也就是说
line1  xxx \n
line2  xxx (ddd) \n
line3  xxx \n
.....
如何提取，谢谢

__lxmxn__

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

4^# __lxmxn__ 发表于 2008-01-03 21:09

格式不是固定的?
每行后面的\n是指的回车,还是字面意义上的"\n"?

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

5^# Lonki 发表于 2008-01-03 21:12

/(.+?) \(?/

hepower

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

6^# hepower 发表于 2008-01-03 21:18

对格式不固定，有时候后面有个括号，括号里有一些内容，我就是想把括号和里面的内容过滤掉，谢谢
LonKi，你给的方法好像不行

__lxmxn__

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

7^# __lxmxn__ 发表于 2008-01-03 21:20

兄可以写详细点么?我用你这个正则匹配不上.

__lxmxn__

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

8^# __lxmxn__ 发表于 2008-01-03 21:23

试试这个:

[Copy to clipboard] [ - ]

CODE:

use strict;
use warnings;

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

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

9^# Lonki 发表于 2008-01-03 21:31

QUOTE:

原帖由 hepower 于 2008-1-3 21:18 发表
对格式不固定，有时候后面有个括号，括号里有一些内容，我就是想把括号和里面的内容过滤掉，谢谢
LonKi，你给的方法好像不行

我好像行.

use strict;
use warnings;

while (<DATA>) {
print $1, "\n" if (/(.+?) \(?/);
}

__DATA__
abc
123 (xx)
456
def (OO)

perljoker

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

10^# perljoker 发表于 2008-01-04 09:33

QUOTE:

原帖由 hepower 于 2008-1-3 21:18 发表
对格式不固定，有时候后面有个括号，括号里有一些内容，我就是想把括号和里面的内容过滤掉，谢谢
LonKi，你给的方法好像不行

在满足你当前需求时，这个方法是可以的
其实他这个方法往往匹配行首是你需要的字符串，后面是空格，然后有无括号都可以的情况
也许你文件不是这样的，你把实际文件copy一部分出来看看