获取< td> Perl的值 [英] Get <td> values with Perl
问题描述
因此，我有一个报告工具，可以将作业调度统计信息吐出到HTML文件中，并且我希望使用Perl来使用此数据.我不知道如何逐步浏览HTML表格.
So I have a reporting tool that spits out job scheduling statistics in an HTML file, and I'm looking to consume this data using Perl. I don't know how to step through a HTML table though.
我知道如何使用jQuery使用
I know how to do this with jQuery using
$.find('<tr>').each(function(){
variable = $(this).find('<td>').text
});
但是我不知道如何用Perl来做同样的逻辑.我该怎么办?以下是HTML输出的示例.每个表行都包含三个相同的统计信息:对象名称，状态和返回码.
But I don't know how to do this same logic with Perl. What should I do? Below is a sample of the HTML output. Each table row includes the three same stats: object name, status, and return code.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<meta name="GENERATOR" content="UC4 Reporting Tool V8.00A">
<Title></Title>
<style type="text/css">
th,td {
font-family: arial;
font-size: 0.8em;
}
th {
background: rgb(77,148,255);
color: white;
}
td {
border: 1px solid rgb(208,213,217);
}
table {
border: 1px solid grey;
background: white;
}
body {
background: rgb(208,213,217);
}
</style>
</HEAD>
<BODY>
<table>
<tr>
<th>Object name</th>
<th>Status</th>
<th>Return code</th>
</tr>
<tr>
<td>JOBS.UNIX.S_SITEVIEW.WF_M_SITEVIEW_CHK_FACILITIES_REGISTRY</td>
<td>ENDED_OK - ended normally</td>
<td>0</td>
</tr>
<tr>
<td>JOBS.UNIX.ADMIN.INFA_CHK_REP_SERVICE</td>
<td>ENDED_OK - ended normally</td>
<td>0</td>
</tr>
<tr>
<td>JOBS.UNIX.S_SITEVIEW.WF_M_SITEVIEW_CHK_FACILITIES_REGISTRY</td>
<td>ENDED_OK - ended normally</td>
<td>0</td>
</tr>
推荐答案
您可以使用RegExp，但是Perl已经为该特定任务构建了模块.查看 HTML :: TableContentParser
You could use a RegExp but Perl already has modules built for this specific task. Check out HTML::TableContentParser
您可能会执行以下操作:
You would probably do something like this:
use HTML::TableContentParser;
$tcp = HTML::TableContentParser->new;
$tables = $tcp->parse($HTML);
foreach $table (@$tables) {
foreach $row (@{ $tables->{rows} }) {
foreach $col (@{ $row->{cols} }) {
# each <td>
$data = $col->{data};
}
}
}
这篇关于获取< td> Perl的值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
