#!/usr/bin/perl -w
# vim:set expandtab shiftwidth=4 softtabstop=2 tabstop=4:
 
use strict;
 
use Data::Dumper;
use XML::LibXML;
use XML::LibXSLT;
use XML::XPath;
 
my $xml_results =
q{<tr>
<td>Floor</td>
 
<td><a href=http://wwwin.cisco.com/wpr/floorplans/bldgid/BDLK11/BDLK11-AFP-1.pld target=_blank>Floor 1</a><a href=http://wwwin.cisco.com/wpr/floorplans/bldgid/BDLK11/BDLK11-AFP-1.pdf target=_blank><img src=./images/icon_pdf.gif width=18 height=12 border=0 alt='Adobe Acrobat PDF File'></a> (PDF)<br></td>
<td >Local Time (24 hr)</td> <td><p><script language="JavaScript"> ServerClock(); </script><noscript>Wed 21:58:50 </noscript></p></td>
</tr>
};
 
#
# Since there was a comment that there was no control over the source HTML....
# (and yes, I know it probably only works with the sample data)....
#
$xml_results =~ s/(=)([^\"\'\s\>]+)/$1"$2"/gis;
$xml_results =~ s/(\<br)(\>)/$1\/$2/gis;
$xml_results =~ s/(\<img[^\>]+)(>)/$1\/$2/gis;
 
=pod
#
# For reference-the expressions worked with this
#
$xml_results =
q{<tr>
<td>Floor</td>
 
<td><a href="http://wwwin.cisco.com/wpr/floorplans/bldgid/BDLK11/BDLK11-AFP-1.pld" target="_blank">Floor 1</a><a href="http://wwwin.cisco.com/wpr/floorplans/bldgid/BDLK11/BDLK11-AFP-1.pdf" target="_blank"><img src="./images/icon_pdf.gif" width="18" height="12" border="0" alt='Adobe Acrobat PDF File' /></a> (PDF)<br /></td>
<td >Local Time (24 hr)</td> <td><p><script language="JavaScript"> ServerClock(); </script><noscript>Wed 21:58:50 </noscript></p></td>
</tr>
};
=cut
 
#
# No user-editable data below this point.
#
 
$| = 1;
 
# Initialize the parser and XSLT processor
my $parser = XML::LibXML->new();
my $xslt   = XML::LibXSLT->new();
 
my $source_doc = $parser->parse_string($xml_results);
 
# Initialize the XPath processor
my $xp = XML::XPath->new( xml => $xml_results );
 
my ($stylesheet);
{
    my $stylesheetdata = q{
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
        <xsl:output method="html" encoding="iso-8859-1" indent="no"/>
        <xsl:template match="/">
 
    <xsl:value-of select="//tr/td[preceding-sibling::td/text()='Local Time (24 hr)' and position()=4]/p/noscript/text()"/>
 
        </xsl:template>
</xsl:stylesheet>
};
 
    my $style_data = $parser->parse_string($stylesheetdata);
    $stylesheet = $xslt->parse_stylesheet($style_data);
}
 
my $result = $stylesheet->transform($source_doc);
print $stylesheet->output_string($result);