-3

現在、私は新しいコンピューターを持っており、まだ perl のインストールに取り組んでいます。私のプログラムの出力が何であるかをテストする人が必要です (それが機能する場合)。そうでない場合は、修正するために何ができるか教えてください ( Config::INI::Reader は cpan クラスなので、持っていない場合は取得することをお勧めします。

パールコード:

#!/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"
4

1 に答える 1

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"
于 2013-01-07T23:35:30.377 に答える