perl - 在 perl 程序上需要帮助

Question

到目前为止，我有一台新计算机，并且仍在安装 perl 我需要有人来测试我的程序的输出是什么（如果它甚至可以工作）如果不是，请告诉我我能做些什么来修复它（ Config::INI::Reader 是一个 cpan 类，所以如果你没有它，你可能想得到它

perl 代码：

#!/usr/bin/perl

use warnings;
use strict;
use IO::Socket;
use Config::INI::Reader;

my $file = "ServerSettings.ini";
my $ini = Config::INI::Reader->read_file($file);
my $server_info = $ini->{'ServerInfo'};
my $version = $ini->{'Version'};
my $host = $server_info->{'address'};
my $port = $server_info->{port};
my $server = new IO::Socket::INET(Proto=>'tcp',PeerAddr=>$host,PeerPort=>$port);

die "Connection Failed \n" unless $server;

print "Connection Established \n";
print "James Server" . $version->{ver} . "\n";
print "Hello From James Server";

这是ini：

[ServerSettings]
port=1234
address"localhost"

[Version]
ver="1.0.3"

Answer 1

#!/usr/bin/perl -l

use warnings;
use strict;
use Config::INI::Reader;

my $file = "/tmp/l.ini";
my $ini = Config::INI::Reader->read_file($file);
my $server_info = $ini->{ServerSettings};
my $version = $ini->{Version};

my $host = $server_info->{address};
my $port = $server_info->{port};
my $ver = $version->{ver};

print $host;
print $port;
print $ver;

您在 ini 文件中有错字，缺少一个=

[ServerSettings]
port=1234
address="localhost"

[Version]
ver="1.0.3"