问个关于空格（ ）的问题

nbaloverme

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

1^# nbaloverme 发表于 2008-07-17 16:10

问个关于空格（ ）的问题

HTML源代码如下：

QUOTE:

</tr>
<td class="a1" align="center">总计</td>

<td class="a1" align="center">& n b sp; </td>

<td class="a1" align="right"> & n b sp;</td>

<td class="a1" align="right"> & n b sp;</td>

<td class="a1" align="right">& n b sp; </td>

<td class="a1" align="right"> & n b sp;</td>

<td class="a1" align="right">& n b sp; </td>

<td class="a1" align="right">& n b sp; </td>

<td class="a1" align="right"> & n b sp;</td>

<td class="a1" align="right">& n b sp; </td>

<td class="a1" align="right">1103000</td>

<td class="a1" align="right">788124</td>

<td class="a1" align="right">36696</td>
</tr>

现已取得该页面数据并存入一数组@cols中。
我想将各项数据以逗号分隔符显示如下：

QUOTE:

总计,,,,,,,,,1103000,788124,36696

[Copy to clipboard] [ - ]

CODE:

print join ",", @cols;

可是它显示如下所示:

QUOTE:

总计,?????????1103000,788124,36696

这里应该怎样处理空格呢？

yuanyuan025

UID: 6701
帖子: 132
积分: 303
在线时间: 1 天

2^# yuanyuan025 发表于 2008-07-17 16:14

帮顶了

nbaloverme

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

3^# nbaloverme 发表于 2008-07-17 16:17

谢谢，能提供建议就更好了

nbaloverme

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

4^# nbaloverme 发表于 2008-07-17 16:21

HTML源代码中&n b s q; 表示空格

QUOTE:

cobrawgl

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

5^# cobrawgl 发表于 2008-07-17 16:32

你提取数据的时候，顺便处理一下不可以吗

nbaloverme

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

6^# nbaloverme 发表于 2008-07-17 16:36

怎么处理？

我做了几个模式匹配，输出结果都不是我想要的

cobrawgl

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

7^# cobrawgl 发表于 2008-07-17 16:37

你把你的 regex 贴出来看看？
顺便贴点 html 源数据

nbaloverme

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

8^# nbaloverme 发表于 2008-07-17 16:39

QUOTE:

foreach $elem (@cols) {
$elem =~ s/&n b r p; //g;
}
print join ",", @cols;

输出结果为：

QUOTE:

总计,?????????1103000,788124,36696

nbaloverme

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

9^# nbaloverme 发表于 2008-07-17 16:43

html源代码在第一楼
数据已经获取并保存在数组中
问题是空格（&n b sp;）不知道怎么处理，它通过程序输出为乱码（?）

cobrawgl

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

10^# cobrawgl 发表于 2008-07-17 16:49

#!/usr/bin/perl

use strict;
use warnings;

my @data = <DATA>;
my $data = join '', @data;

my @t = $data =~ m{<td.*?>(.*)</td>}mg;

print "$_ \n" for @t;
s/&nbsp// for @t;
print "$_ \n" for @t;

print join ',', @t;
__DATA__
</tr>
                              <td class="a1" align="center">总计</td>


                              <td class="a1" align="center">&nbsp </td>

                              <td class="a1" align="right">&nbsp </td>

                              <td class="a1" align="right">&nbsp </td>


                              <td class="a1" align="right">&nbsp </td>

                              <td class="a1" align="right">&nbsp </td>

                              <td class="a1" align="right">&nbsp </td>

                              <td class="a1" align="right">&nbsp </td>

                              <td class="a1" align="right">&nbsp </td>

                              <td class="a1" align="right">&nbsp </td>

                              <td class="a1" align="right">1103000</td>

                              <td class="a1" align="right">788124</td>

                              <td class="a1" align="right">36696</td>
                     </tr>

-----------------------------------------------------------------

我只能说，你碰到的问题很奇怪啊，我这里怎么没问题啊

问个关于空格（&nbsp;）的问题

问个关于空格（&nbsp;）的问题

问个关于空格（）的问题

问个关于空格（）的问题