小编VSr*_*VSr的帖子

是否可以使用html5按钮事件运行bat/executable文件？在IE中,如果我没有错,可以使用Shell对象实现.

输入XML:

<doc>
 <section>
  <para>Paragraph 1</para>
  <para>Paragraph 2</para>
  <para>Paragraph 3</para>
 </section>
  <para>Paragraph 4</para>
  <para>Paragraph 5</para>
  <para>Paragraph 6</para>
</doc>

所需输出:

<book>
<section>
  <p class="para" id="0001">Paragraph 1</p>
  <p class="para" id="0002">Paragraph 2</p>
  <p class="para" id="0003">Paragraph 3</p>
 </section>
  <p class="para" id="0004">Paragraph 4</p>
  <p class="para" id="0005">Paragraph 5</p>
  <p class="para" id="0006">Paragraph 6</p>
 </book>

我尝试使用以下XSL,但我没有获得所需的输出.有人可以帮我吗？

<xsl:template match="para">
    <xsl:variable name="count" select="position()"/>
    <p class="para" id="{$count}">
        <xsl:apply-templates/>
    </p>
</xsl:template>

我得到的结果是:

<p class="para" id="2">Paragraph 1</p>
<p class="para" id="4">Paragraph 2</p>
<p class="para" id="6">Paragraph 3</p>

    <p class="para" id="4">Paragraph 4</p>
    <p class="para" id="6">Paragraph 5</p>
    <p …

我使用Perl 5.16与REST::ClientGET进行REST调用,但它显示错误401身份验证问题.我不清楚如何解决这个问题.

码

use REST::Client;
use JSON;
use Data::Dumper;
use MIME::Base64;

my $username = 'test';
my $password = 'test';

my $client = REST::Client->new();
$client->setHost('http://myurl');

my $headers = {
    Accept        => 'application/json',
    Authorization => 'Full' . encode_base64($username . ':' . $password)
};
$client->GET('folder/file', $headers);

print $client->responseCode();
print $client->responseContent();

我next if $file eq '.' $file eq '..';用来在目录和子目录中找到该文件(少数目录除外)并打开文件进行查找和替换.但是当我在文件夹名称中有点时,它会将文件夹视为文件并说无法打开.我使用-f过滤了文件但是它丢失了以显示主文件夹中的文件.

是否有任何递归方式来查找文件夹和文件,即使它有点.

opendir my $dh, $folder or die "can't open the directory: $!";

while ( defined( my $file = readdir( $dh ) ) ) {

    chomp $file;

    next if $file eq '.' $file eq '..';

    {
        if ( $file ne 'fp' ) {

            print "$folder\\$file";

            if ( $file =~ m/(.[^\.]*)\.([^.]+$)/ ) {
                ...
            }
        }
    }
}

我将目录/子目录中的多个html文件合并到同一目录中的单个html中.我浏览了一些网站并尝试了以下代码:

#!/usr/bin/perl -w
use strict;
use File::Slurp;
my $basedir = 'c:/test';

opendir(DIR, $basedir) or die $!;
my @files = readdir(DIR); # name arrays plural, hashes singular
closedir DIR;

my $outfilename = 'final.htm';
my $outfilesrc = undef; 

foreach (sort @files){ 
  $outfilesrc.= File::Slurp::slurp("$basedir/$_");
}

open(OUT, "> $basedir/$outfilename") or die ("Can't open for writing: $basedir/$outfilename : $!");
print OUT $outfilesrc;
close OUT;

exit;

但我得到了以下错误,无法合并文件.

read_file 'c:/test.' - sysopen: Permission denied at mergehtml.pl line 15

谁能帮我!有没有办法在Perl中将HTML文件合并为单个？

我有文件夹/子文件夹中的文件列表.如何运行单个XSLT来运行文件夹/子文件夹中的所有文件.是否可以在saxon命令行中使用？

我已经尝试过以下命令,但它不起作用:

 java -jar saxon9.jar -o:foldername -xsl:xslfilename.xsl

非常感谢您的帮助.

有没有办法事先报告Perl文件中使用的丢失模块,而不是作为错误.

我有一些像use Digest::MD5,use File::DosGlob模块在我的Perl程序.每当用户运行脚本时,如果系统中没有安装特定模块,则会出现错误.他们无法理解由...给出的默认错误消息@INC.所以我想清楚告诉他们需要安装这些模块来运行脚本.