使用 Perl Hash 填充下拉列表？

Question

新手警报 我基本上想读入一些文件以从中获取一些数据。我想将这些数据解析为哈希表，最终生成条形图。

这是我正在读入的文件类型。所有文件都更大并且有更多条目：

> Name      CPU Time     CPU Load Percentage
> 
> -----------------------------------------
> 
> System                7962        3.00% 
> 
> Adobe Photoshop       6783        0.19% 
> 
> MSN Messenger         4490        0.01% 
> 
> Google Chrome         8783        0.02% 
> 
> Idle                   120       94.00% 
> 
> =========================================

这是到目前为止我的 Perl 相关代码：

#!/usr/bin/perl
use warnings;
use Data::Dumper;  


  #Looping through the end of the file  
  while (<DATA>) 
   {
   #Selecting only the CPU Processes
   if (/(.*?)\s+\d+\s+(\d+\.\d+)\%/){
   #Populating the hash with only Process name and % (eg: Idle 94.00%)
    $cpu_util{ $1 } = $2;
    }
   }

  #Assigning the axis labels to be pushed onto the graph
  @xvalues = keys %cpu_util;
  @yvalues = values %cpu_util;  

      }

---

现在，我能够成功地从多个文件中读取数据，并且能够显示单个图表。然而，除了仅显示一张图表之外，我还希望能够做的是。让用户选择他们感兴趣的过程，然后创建这些点的折线图。

但是，我不完全确定如何解决这个问题。我知道我的所有进程都通过键/值对存储在我的哈希中。所以（“空闲 -> 94%”）等等。我最终想做的是向用户显示一个下拉框......它列出了哈希中的所有键。当用户选择一个特定的键时，它会为他生成一个 GD::Graph。我想，我会在手之前生成每个键的图表并将它们保存为图像。选择一个特定的选项只是将它们链接到正确的图像...

我一直在网上阅读一些有关使用 CGI 实现下拉列表的内容，但还没有走得太远。我正在考虑使用下拉列表创建另一个 HTML 页面，但我不确定如何从 Perl 中存储的哈希中动态填充值。

Answer 1

首先，查找 Data::Dumper 和 Data::Dump。当您使用数据结构时，这些都会为您提供帮助。

要绘制折线图，​​您需要时间序列数据。听起来您有多个文件，每个文件都是给定时间点的快照。现在您只需对它们进行求和，而不是需要加载所有数据。所以你可以像这样存储它：

foreach my $file (@files) {
    my $time = get_time_from_file($file); # regexp on name, whatever
    # ...
    $cpu_util{$1}{$time} = $2; # or $cpu_util{$time}{$1}
    #...
}

然后你的数据结构中就会有时间和程序，这样你就可以随着时间的推移绘制图表。当然，这会使用更多内存（但我猜这并不是真正的问题，除非您有很多这样的文件）。

编辑 1

将所有数据加载到内存后，您可以根据需要对其进行切片。因此，您可以绘制单个程序随时间变化的图表。 CGI.pm 绝对是“老派”（这就是我们在 90 年代中期编写 Perl CGI 的方式），但它应该可以很好地制作您的选择框。您可以使用其 param 方法查看选择的内容：

my $selected = $CGI->param('selectbox_name');
if (defined $selected) {
   # code to display graph
} else {
   # code to display menu
}

您可以预先生成所有图表，这是否是一个好主意实际上取决于它有多少张图表、每个图表获得多少流量、什么响应时间要求等

（您可能还需要研究诸如 HTML::Template、Template Toolkit、Mason、CGI::Application 和 Catalyst 等内容。另外，您可能想将结果存储在某个地方，而不是重复处理文件，但一次性学习所有这些可能会让人不知所措。）