一个关于字符串匹配的问题

kimux

UID: 1158
帖子: 12
积分: 27
在线时间: 10 分钟

1^# kimux 发表于 2008-07-10 10:51

一个关于字符串匹配的问题

我想从一个网页文件中找到这个字符串，然后从中分别取出32和23

这样写哪里错了呢？

`wget -O - http://weather.yahoo.com/forecast/CHXX0008_c.html > $file`;
open(FILE, $file) or die "Could not open file $file: $!\n";

$leadspace="  "; #spacing before each high low

$trailspace=" "; #spacing after each high low.

$degree=" ℃"; #give me the degree symbol, not everyone has same locale

while(<FILE>){
            #get the high temp

            (my $high) = /<p>High: (-?\d+)#176; Low: \-?\d+#176;<\/p>/;

            #get the low temp

            (my $low) = /<p>High: \-?\d+#176; Low: (-?\d+)#176;<\/p>/;

            #print the high and low temp for the specified day

            if($high=~/\d+/ && $low=~/\d+/ && ++$count<=$day){print "$leadspace$high$degree/$low$degree$trailspace";}
            elsif($count>=$day){print "\n"; exit;} #don't keep looking if everything has been found

}

kimux

UID: 1158
帖子: 12
积分: 27
在线时间: 10 分钟

2^# kimux 发表于 2008-07-10 10:54

晕。。找到原因了，是我马虎了。。。

另外，怎么输出摄氏度的符号？到桌面上之后输出的是乱码(图的右下角位置）

小公猫

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

3^# 小公猫发表于 2008-07-10 10:57

QUOTE:

原帖由 kimux 于 2008-7-10 10:54 发表
晕。。找到原因了，是我马虎了。。。

另外，怎么输出摄氏度的符号？我这里输出的是乱码

将符号复制到程序中就可以了吧

小公猫

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

4^# 小公猫发表于 2008-07-10 10:59

另外，你的high和low可以放在一个正则表达式中求，分别为$1和$2

kimux

UID: 1158
帖子: 12
积分: 27
在线时间: 10 分钟

5^# kimux 发表于 2008-07-10 11:12

说实话。。我对Perl并不了解。。

这个天气预报脚本是在网上找的

不过他天气显示的有问题，我就自己改一下。。。能用就行了，HEHE

kimux

UID: 1158
帖子: 12
积分: 27
在线时间: 10 分钟

6^# kimux 发表于 2008-07-10 11:16

对了，原来的脚本里他是这样显示符号的

$degree= encode_utf8( "\x{00B0}" );

只不过显示出来的不是摄氏度。。我也不知道是什么符号