【正则问题】取一个特定字符为开头非特定字符为结尾的单词方法

cobrawgl

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

11^# cobrawgl 发表于 2008-07-24 14:59

那你就全写出来嘛

guijia8427

UID: 8237
帖子: 160
积分: 368
在线时间: 1 天 11 小时

12^# guijia8427 发表于 2008-07-24 15:02

QUOTE:

原帖由 cobrawgl 于 2008-7-24 14:59 发表
那你就全写出来嘛

为啥 /(\bs(.*)+[b-z]\b)/g 这样就不行呢很奇怪啊
应该会有简单的办法那个什么向前界定向后界定的好像可以

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

13^# mouse.rice 发表于 2008-07-24 16:58

不明白，这样不行吗？

my $str = "saaaaa sdjfzv saata sa%##%%￥aat swjfsd skdfje";
my @arr = split /\s+/, $str;
for my $arr(@arr){
print "$arr\t" if ($arr=~/^s\S*[^a]$/);
}

QUOTE:

D:\>perl -w 123.txt
sdjfzv sa%##%%￥aat swjfsd skdfje

guijia8427

UID: 8237
帖子: 160
积分: 368
在线时间: 1 天 11 小时

14^# guijia8427 发表于 2008-07-24 16:59

QUOTE:

原帖由 mouse.rice 于 2008-7-24 16:58 发表
不明白，为何硬要用正则！

my $str = "saaaaa sdjfzv saata sa%##%%￥aat swjfsd skdfje";
my @arr = split /\s+/, $str;
for my $arr(@arr){
print "$arr\t" if ($arr=~/^s\S*[^a]$/);
}

哈哈哈这都是学习问题学习正则中想到的问题
可以的方法很不错先弄成数组在整

guijia8427

UID: 8237
帖子: 160
积分: 368
在线时间: 1 天 11 小时

15^# guijia8427 发表于 2008-07-28 14:52

#!/usr/bin/perl
@ar=qw(saaaaa sdjfzv saata sa%%%aat swjfsda skdfje shdgf);
#print "@arr";
#foreach $
@arr = map {($_=~/^s.*[^a]$/g)} @ar;
print "@arr";

我的方法

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

16^# mouse.rice 发表于 2008-07-28 16:13

兄弟真能折腾不错，顺带温习了map函数和内插变量的用法

guijia8427

UID: 8237
帖子: 160
积分: 368
在线时间: 1 天 11 小时

17^# guijia8427 发表于 2008-07-28 16:38

QUOTE:

原帖由 mouse.rice 于 2008-7-28 16:13 发表
兄弟真能折腾不错，顺带温习了map函数和内插变量的用法

生命的意义就在于折腾

Monox

UID: 7804
帖子: 78
积分: 179
在线时间: 8 小时

18^# Monox 发表于 2008-07-29 14:43

前面的几种方法之所以不行，是因为忽略了贪婪匹配的问题。

【正则问题】取一个特定字符为开头 非特定字符为结尾的单词方法

【正则问题】取一个特定字符为开头非特定字符为结尾的单词方法