寻找多处 0 的问题？

choose2005

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

1^# choose2005 发表于 2007-11-01 22:30

寻找多处 0 的问题？

我有这样一个数组：
0 1 2 4 0 0 0 0 9 2 1 0 0 4 7 2 0 0 0 1 6 5 0 1 8
我想出现几次0区，每个0区有多少个0？
上面那个数组应该是：
出现5次0区，
每个0区的0个数为：1 4 2 3 1
谢谢！

lokchungk

UID: 6618
帖子: 74
积分: 170
在线时间: 7 小时

2^# lokchungk 发表于 2007-11-01 22:59

應該和正規表示式有關
待高手解答=.=

choose2005

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

3^# choose2005 发表于 2007-11-01 23:04

0 1 2 4 0 0 0 0 9 2 1 0 0 4 7 2 0 0 0 1 6 5 0 1 8 是一个数组，不是一个字符串，
唧：
@array=(0,1,2,4,0,0,0,0,9,2,1,0,0,4,7,2,0,0,0,1,6,5,0,1,;

gsging

UID: 14169
帖子: 179
积分: 411
在线时间: 1 天 19 小时

4^# gsging 发表于 2007-11-01 23:12

#!/usr/bin/perl

my $string = "0 1 2 4 0 0 0 0 9 2 1 0 0 4 7 2 0 0 0 1 6 5 0 1 8";
$string =~s/\s+//g;
$string =~s/[1-9]{1,}/|/g;
my @array = split(/\|/,$string);

print "Total P:".@array."\n";

foreach (@array)
{
print $_."\thas\t".length($_)."\n";
}

根据实际情况再修改一下吧.

gsging

UID: 14169
帖子: 179
积分: 411
在线时间: 1 天 19 小时

5^# gsging 发表于 2007-11-01 23:29

数组的话就稍微该一下.

#!/usr/bin/perl

my @string = (0,1,2,4,0,0,0,0,9,2,1,0,0,4,7,2,0,0,0,1,6,5,0,1,8);
my $string;
map {$string .= $_} @string;
$string =~s/\s+//g;
$string =~s/[1-9]{1,}/|/g;
my @array = split(/\|/,$string);

print "Total P:".@array."\n";

foreach (@array)
{
print $_."\thas\t".length($_)."\n";
}

Lonki

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

6^# Lonki 发表于 2007-11-02 01:26

# 走算法路线就遍历数组.
# 走Perl路线就转换成字符串.

my @array = qw/0 1 2 4 0 0 0 0 9 2 1 0 0 4 7 2 0 0 0 1 6 5 0 1 8/;
my $str = join('', @array);
my @count;

for ($str =~ /0+/g) {
#Or: for (split(/[1-9]+/, $str)) {
push @count, length $_;
}

print join(' ', @count); # 1 4 2 3 1

perljoker

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

7^# perljoker 发表于 2007-11-02 10:33

QUOTE:

原帖由 Lonki 于 2007-11-2 01:26 发表
# 走算法路线就遍历数组.
# 走Perl路线就转换成字符串.

my @array = qw/0 1 2 4 0 0 0 0 9 2 1 0 0 4 7 2 0 0 0 1 6 5 0 1 8/;
my $str = join('', @array);
my @count;

for ($str =~ /0+/g) {
#Or ...

这个方法好

ubac

UID: 8216
帖子: 71
积分: 163
在线时间: 7 小时

8^# ubac 发表于 2007-11-02 13:10

想法不错，值得称赞

doiob

UID: 20086
帖子: 106
积分: 243
在线时间: 15 小时

9^# doiob 发表于 2007-11-02 13:30

QUOTE:

原帖由 Lonki 于 2007-11-2 01:26 发表
# 走算法路线就遍历数组.
# 走Perl路线就转换成字符串.

my @array = qw/0 1 2 4 0 0 0 0 9 2 1 0 0 4 7 2 0 0 0 1 6 5 0 1 8/;
my $str = join('', @array);
my @count;

for ($str =~ /0+/g) {
#Or ...

好