1

我花了大约 6 个小时试图弄清楚这一点。我希望perl大师会有所帮助。

我有一个循环的程序，用我正在轮询的服务器的信息更新哈希。我正在使用 HTTP::Server::Simple::CGI 向用户报告此信息。我遇到了一个问题，HTTP::Server::Simple::CGI 模块看不到哈希的更新，只会报告哈希初始化的数据。

我有以下代码，删节：

{
package LabBrowser;

use warnings;
use strict;
use Thread::Queue;
use LWP::Simple; 
use HTTP::Server::Simple::CGI;
use base qw(HTTP::Server::Simple::CGI);

my %problem_data_structure;


sub server_loop {
    while(1) {
        for my $server (@server_list) {
            fetch_server_info(@$server);
        }
    }
}

sub fetch_server_info {
    my ($hostname, $port) = @_; 
    my $content = fetch_webpage_content("http://" . $hostname . ":" . $port);   
    my @data = parse_data(content);
    $problem_data_structure{$hostname} = [@data];
}

##THIS SUB
sub handle_request {
    my ($self, $cgi) = @_;
    my $path = $cgi->path_info();

    ##THIS LINE 
    print Data::Dumper->Dump([\%problem_data_structure],['handle']);

}

}

my $pid = LabBrowser->new(8080)->background();
my $labBrowser = LabBrowser->init();
$labBrowser->server_loop();
print "$pid !!!\n";

我可以在程序的任何地方获取 %problem_data_structure 中的数据，除了 handle_request。在那里，它似乎只知道变量被初始化为什么。如果我在开头添加一些键值对，它会报告。但是，它不会报告自初始化以来添加到数据结构中的任何内容。

有谁知道发生了什么？

4

1 回答 1

1

这background()是在后台进程中处理请求的线索。Perl 中的进程不共享内存，因此在%problem_data_structure中修改时handle_request，父进程中的（原始）副本%problem_data_structure不受影响。

于 2012-05-10T00:52:40.483 回答