Question

我有一个问题，我希望有人在这里帮助我。我有一个Perl脚本给我关于csv文件的信息。它的信息是：

数据：

Number of compared parameters =7 

Current number of systems = 56

Date = 20150617 1:00:13 p.m.

考虑到值可以改变。我喜欢它的信息显示在html页面中。为此，我不想使用网络服务器。我被告知这可以使用javascript。我希望有人可以帮助我。

因此我向你发送了我的Perl脚本和首页（html）。

Perl代码：

Answer 1

让珍珠脚本用您想要的数据写一个文件<script src="data.js" ...>。之后，您可以在包含document.write(data['Number of compared parameters']);的HTML文件中以及var data = { 'Number of compared parameters': 7, 'Current number of systems': 56; 'Date': '20150617 1:00:13 p.m.' };所需的位置使用它。

Option Explicit     
Dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")         

On Error Resume Next
   With WScript.CreateObject ("InternetExplorer.Application")     
      .Navigate "http://www.example.com/slideshow"
      .fullscreen = 1   
      .Visible    = 1
      WScript.Sleep 10000
   End With    
On Error Goto 0

Answer 2

如果您需要将值输出到脚本中的HTML文件，这可能会有所帮助

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
use POSIX qw(strftime);

my $date_1 = strftime "%Y%m%d %H:%M:%S", localtime;
my $FileResult = 'result_1.csv'; 
open( my $FhResult, '>', $FileResult );
open my $fh, "<", "DATA.csv";
my ($h, $v) = (0, 0); 

while (<$fh> ) {last if (/^\d+\s+\d{2}:\d{2}:\d{2}\s*$/)} 
while (<$fh> ) {
next if (/^\s*$/);     
if (/^default\b/) {   
   $h = 0 + grep {!/^(default)?$/} map {s/^\s+|\s+$//g; $_} split(/,/, $_);
 } else {                                                                  
   $v++;                                                                   
 }                                                                        
}
close($fh);

open FH ,">1.html";
print FH "  
    <html>    
        <head>         
            <meta charset=\"UTF-8\"/>
            <title>SYSTEMRESULTS</title>
            <link href=\"style.css\" type=\"text/css\" rel=\"stylesheet\"/>
        </head>
         <body>

            <div id=\"section_1\">
                <font face=\"arial\"><h1><a id=\"sec_1_0\">S</a>ystem  <a id=\"sec_1_0\">P</a>arameter &emsp;<a id=\"sec_1_0\">C</a>ompare</h1></font>
            </div>


             <div id=\"section_3\"> 
             <font face=\"arial\" size=\"+2\">Current number of systems: $v </font> 
             </div>

             <div id=\"section_4\">
             <font face=\"arial\" size=\"+2\">Number of compared parameters: $h  </font> 
             </div>

             <div id=\"section_5\">
             <font face=\"arial\" size=\"+2\">Date:  $date_1</font>
             </div>

             <div id=\"section_6\"><a href=\"file/result_1.csv\">NEXT<img src=\"aiga.png\"/></a></div>

        </body>

        <div id=\"footer\">
          <p>&copy; 2015 copyright</p>
        </div>  

    </html>
    ";

close FH;

Output
1.html content:


    System Parameter  Compare

    Current number of systems: 56  

    Number of compared parameters: 7  

    Date: 20150617 1:00:13 p.m

在没有webserver的html页面上显示来自csv-datei的信息

2 个答案: