动脑的机会来了

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

11^# life382 发表于 2007-09-25 13:42

现在问题明显就是读取htm文件信息，并不是字符串，而是一个字符字符的拆解开了。。咋处理啊。

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

12^# life382 发表于 2007-09-25 13:44

perljoker：：别挖苦我了……快帮我解决问题吧。

qyzj

UID: 36672
帖子: 171
积分: 393
在线时间: 1 天 16 小时

13^# qyzj 发表于 2007-09-25 13:47

LZ就不能把代码发上来看一下啊,.

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

14^# life382 发表于 2007-09-25 13:54

老大，你们怎么看信息的，我已经发了。。

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

15^# life382 发表于 2007-09-25 13:54

这是代码：：：
use strict;

my $project;
my $Configuration;
my $Errors;
my $Warnings;
my $logfile = "Log.htm";

if(-e $logfile)
{
      open LOGFILE, "<$logfile" or die "打开文件失败：$!";
      while (<LOGFILE>)
      {
      my $str = chomp($_);
      print $str;
      if($str =~/Project: [\w],Configuration: [\w]/)
            {
               my $pos=index($str,",");
               my $str1 =substr($str,0,$pos);
               my $pos1=index($str1,":");
               $project = substr($str1,$pos1 +1);
               my $str2 =substr($str,$pos+1);
               my $pos2=index($str2,":");
               $Configuration = substr($str2,$pos2 +1);
            }
      }
print "Project =".$project;
print "\n";
print "Configuration=".$Configuration;
print "\n";
}

这是html部分文件：
<html>
<head>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-16">
</head>
<body>
<pre>
<table width=100% bgcolor=#CFCFE5><tr> <td> <font face=arial size=+3>
Build Log
</font></table><table width=* cellspacing=0 cellpadding=0><tr><td width=0

现在的问题就是像我上面所说的比如第一行<html>，读出来是? h t m l>，

cobrawgl

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

16^# cobrawgl 发表于 2007-09-25 14:01

QUOTE:

my $str = chomp($_);

chomp(my $str = $_);

perljoker

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

17^# perljoker 发表于 2007-09-25 14:04

my $str = chomp($_);

你这句话的意思是，一般来说$tr会等于1
chomp返回的是成功的次数

嘿嘿，偶咋会讽刺你，是说实在的，你一发上来，问题很容易看出来啊
你讲的。。太抽象，偶们咋知道啊

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

18^# life382 发表于 2007-09-25 14:06

遥头……没解决问题

my $str = chomp($_);
chomp(my $str = $_);

看到楼主的写法，很疑惑chomp的用法

life382

UID: 851
帖子: 72
积分: 165
在线时间: 7 小时

19^# life382 发表于 2007-09-25 14:09

perljoker ::
啊，，这函数不是去掉空格的嘛。。
我讲得抽象，不会吧，把简单给复杂话了

竟然看出问题了，，快给讲讲怎么解决吧，我可是翻遍了资料

perljoker

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

20^# perljoker 发表于 2007-09-25 14:13

QUOTE:

原帖由 life382 于 2007-9-25 14:06 发表
遥头……没解决问题

my $str = chomp($_);
chomp(my $str = $_);

看到楼主的写法，很疑惑chomp的用法

晕，你就是楼主啊
他意思是，叫你把my $str = chomp($_);
改成：chomp(my $str = $_);
chomp返回的是数目，所以不能写做$str = chomp()的形式
还有，这个不是去掉空格的，是去掉句末的特殊字符，默认是"\n"就是换行符，没有就返回0,有就去掉而已