- 論壇徽章:
- 0
|
這是代碼：：：
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
現(xiàn)在的問題就是像我上面所說的比如第一行<html>，讀出來是? h t m l>， |
|
免費(fèi)注冊(cè)
發(fā)表于 2007-09-25 11:11
發(fā)表于 2007-09-25 11:16
