-1

我正在编写一些通过 XPath 查询从 Xml 文件中读取的 perl 脚本。从 Perl 脚本中，我需要返回最近日期的 3 部电影（类似于按日期订购电影）。

xml文件：

<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href="films.xsl"?>
<collection xmlns:xs="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://...." xs:schemaLocation="http://.. films.xsd">

<film id="1">
    <title>Title1</title>
    <date>2011-09-24</date>
    <family>Action</family>
</film>
<film id="4">
    <title>Title2</title>
    <date>1980-09-24</date>
    <family>Thriller</family>
</film>

</collection>

我能怎么做？？我阅读并尝试了更多解决方案，但什么都没有。

我试试

my $nodeset = $xp->findnodes(
"/collection/film[not(\@id < preceding-sibling::collection/film[\@id] ) and not(\@id < following-sibling::collection/film[\@id])]" );

我尝试 XPath 2.0 的 max 函数只返回最新的，我尝试 xsl

<xsl:for-each select="collection/film/date">
<xsl:sort select="." data-type="date" order="descending"/>
<xsl:value-of select="title"/>
</xsl:for-each>
4

1 回答 1

0

使用XML::XSH2查找最新电影：

#!/usr/bin/perl
use warnings;
use strict;

use XML::XSH2;

xsh << 'end;';
    open films.xml ;
    register-namespace xs http://.... ;
    $films := hash xs:date /xs:collection/xs:film ;
    $latest = { ( sort { $films->{$a} cmp $films->{$b} }
                     keys %$films )[0] } ;
    ls xsh:lookup('films', $latest) ;
end;
于 2012-05-29T09:25:37.610 回答