求救，取得字符串中的子串

guoqigang

UID: 45020
帖子: 176
积分: 404
在线时间: 1 天 18 小时

1^# guoqigang 发表于 2007-09-29 16:42

求救，取得字符串中的子串

刚开始学习perl，遇到问题了，请高手帮忙解决
需求：
需要将一个字符串中（）中的内容取得并保存
如何做啊
想了半下午了
例如
$newshr=“#define kjdfjklasjfklj dflsjaflsdjaf( 54, 29, 22) /*阿达*/”
如何取得字符串( 54, 29, 22)啊；
万分感谢

perljoker

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

2^# perljoker 发表于 2007-09-29 16:50

既然是第一个帖子，偶就直接写了

[Copy to clipboard] [ - ]

CODE:

$newshr=~/($.*?$)/; $get_it=$1;

$get_it就是你要的结果，在你的$newshr不是很复杂的情况下
另外建议你看正则表达式，这一章

bood

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

3^# bood 发表于 2007-09-29 16:53

$newshr =~ /.*($.*$)/;
print $1;

P.S. 恩，楼上的更好些

Lonki

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

4^# Lonki 发表于 2007-09-29 18:09

QUOTE:

原帖由 perljoker 于 2007-9-29 16:50 发表
既然是第一个帖子，偶就直接写了
$newshr=~/($.*?$)/; $get_it=$1;

$get_it就是你要的结果，在你的$newshr不是很复杂的情况下
另外建议你看正则表达式，这一章

给你鲜花了哦

复杂情况也就()嵌套吧...