需要幫助的Perl程序

Question

截至目前我有一臺新電腦，我仍然在安裝perl我需要一些人來測試我的程序輸出是什麼（如果它甚至工作）如果不是，請告訴我什麼我可以做修復（配置:: 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"