Hi all
I am having a very difficult time grasping how to use extract a "selected" cell out of a table.
Here is what the HTML looks like:
<TD style="HEIGHT: 29px">
<select name="cmbPurpose" id="cmbPurpose" tabindex="3">
<option value="CD">Cell Development</option>
<option value="MS">Miscellaneous R&D</option>
<option value="NP">New Package</option>
<option value="NR">Non R&D</option>
<option value="PC">New process</option>
<option selected="selected" value="PD">New product</option>
<option value="SP">Sustaining Product</option>
<option value="SW">Software and Platform</option>
<option value="TD">Technology Development</option>
</select></TD>
What I am looking for is something that will put the two things that I care about - the name of the select and the named value of the selected item. So for this I would expect the following:
"cmbPurpose""New Product"
I can get the first part - But I CAN'T get the second part. I am open to any module which will let me parse the values. Here is what I have thus far..
use HTML::TokeParser;
my $p = HTML::TokeParser->new( \$webpage->content );
while (my $token = $p->get_tag("select")) {
my $select = $token->[1]{name} ;
print "$select\n";
}
I don't understand why I am so braindead on this simple idea..
Rhodium
The seeker of perl wisdom.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.