急。求一个正则表达式，实在想不清楚了。。。

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

11^# ynchnluiti 发表于 2008-10-31 09:56

my @str = ("abcd", "bcda", "bbac", "dcba", "aaabbbd", "cdab");

for (@str) {
print "$_\n" if /^(?!.*([abcd]).*\1)[abcd]{4}$/;
}

ly5066113

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

12^# ly5066113 发表于 2008-10-31 14:15

QUOTE:

原帖由 ynchnluiti 于 2008-10-31 09:56 发表
my @str = ("abcd", "bcda", "bbac", "dcba", "aaabbbd", "cdab");

for (@str) {
print "$_\n" if /^(?!.*([abcd]).*\1)[abcd]{4}$/;
}

如果数据中有其他字符，例如"123abcd"，你这个就不行了。
感觉还是分开2步写简单：
print "$_\n" if !/([abcd]).*\1/ && /[abcd]{4}/

qishking

UID: 1741
帖子: 25
积分: 57
在线时间: 1 小时

13^# qishking 发表于 2008-10-31 15:41

use strict;
my @tmp_string;
my $patten;
foreach $patten (<> =~ /(\w{4})/g) {
@tmp_string = split //,$patten;
@tmp_string = sort @tmp_string;
@tmp_string = $tmp_string[0]..$tmp_string[-1];
if (@tmp_string == 4) {
# s/$object/'$object'/

print "success!\n";
} else {
print "there is not a matching!\n";
}
}

我试了这个方法,有时会出错,哪位帮忙改一下?

qishking

UID: 1741
帖子: 25
积分: 57
在线时间: 1 小时

14^# qishking 发表于 2008-10-31 15:58

QUOTE:

原帖由 qishking 于 2008-10-31 15:41 发表
use strict;
my @tmp_string;
my $patten;
foreach $patten ( =~ /(\w{4})/g) {
@tmp_string = split //,$patten;
@tmp_string = sort @tmp_string;
@tmp_string = $tmp_string[0]..$tmp_str ...

为什么遇到这样的字符串就会出错呢?
1324zzzacbde

它只会匹配1324 ... cbde,而不是1324 ... acbd ..呢?

高手帮忙改一下这龌龊的代码..

odacharlee

UID: 7090
帖子: 37
积分: 85
在线时间: 2 小时

15^# odacharlee 发表于 2008-10-31 20:23

QUOTE:

原帖由 qishking 于 2008-10-31 15:41 发表
use strict;
my @tmp_string;
my $patten;
foreach $patten ( =~ /(\w{4})/g) {
@tmp_string = split //,$patten;
@tmp_string = sort @tmp_string;
@tmp_string = $tmp_string[0]..$tmp_str ...

都说过了你不听嘛，干嘛非要用正则表达式呢？出错了不是？

foreach $patten ( =~ /(\w{4})/g) {

你这里每次肯定要吃掉四个字符，
所以 1324zzzacbde 这个每次判断的是 1324, zzza, cbde
根本就没有acbd嘛。

直接用 for $i (0..length($_)) { $str = substr($_, $i, 4); ...} 不好吗？

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

16^# ynchnluiti 发表于 2008-11-01 00:14

QUOTE:

原帖由 ly5066113 于 2008-10-31 14:15 发表

如果数据中有其他字符，例如"123abcd"，你这个就不行了。
感觉还是分开2步写简单：
print "$_\n" if !/([abcd]).*\1/ && /[abcd]{4}/

去掉^ 和 $

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl -w
use warnings;
use strict;

my @str = qw(
      123abcd49
      234aabbde98
      123aabbccdd98
      1234dcba
      123abcd
      123abcd45
      123abgg45
      1234dcbaggg
      1234abcd
      123a4b5c6d90
      123ab4bc5cd6d90
      123ab4bc5cdgggasdb
      123ab4bc5cdbaggasdb
      12a4abcdggg
      1234dcbaaggg
      1234dbac
      );

print 'Strings that match "/(?!.*([abcd]).*\1)[abcd]{4}/":', "\n";
for (@str) {
print "$_\n" if /(?!.*([abcd]).*\1)[abcd]{4}/;
}

print 'Strings that match "!/([abcd]).*\1/ && /[abcd]{4}/":', "\n";
for (@str) {
print "$_\n" if !/([abcd]).*\1/ && /[abcd]{4}/;
}

QUOTE:

Strings that match "/(?!.*([abcd]).*\1)[abcd]{4}/":
123abcd49
1234dcba
123abcd
123abcd45
1234dcbaggg
1234abcd
12a4abcdggg
1234dbac
Strings that match "!/([abcd]).*\1/ && /[abcd]{4}/":
123abcd49
1234dcba
123abcd
123abcd45
1234dcbaggg
1234abcd
1234dbac

ly5066113

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

17^# ly5066113 发表于 2008-11-01 09:23

QUOTE:

原帖由 ynchnluiti 于 2008-11-1 00:14 发表

Strings that match "/(?!.*([abcd]).*\1)[abcd]{4}/":
123abcd49
1234dcba
123abcd
123abcd45
1234dcbaggg
1234abcd
12a4abcdggg
1234dbac

这个 12a4abcdggg 没过滤掉。

happy819

UID: 33756
帖子: 37
积分: 85
在线时间: 2 小时

18^# happy819 发表于 2008-11-01 10:44

QUOTE:

原帖由 ly5066113 于 2008-11-1 09:23 发表

这个 12a4abcdggg 没过滤掉。

嗯，不太否符合条件。连续的是abcd

QUOTE:

要求abcd四个字母连续，但每个字母有且仅出现一次

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

19^# ynchnluiti 发表于 2008-11-01 10:47

如果要求不重复的话，用正则表达式确实有点困难

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

20^# machine 发表于 2008-11-01 22:33

邮件列表里有一个
my @result = glob "{a}-{b,c}-{d,e,f}-{a}";