-5

科学クラスのプロジェクトで、Perl でゲームを作成しています。これは私のゲームの紹介です。

# Solar Game
# Copyright (c)2013 Donovan Roudabush
# Protected by GPU

print "  _________      .__                   ________                       \n";
print " /   _____/ ____ |  | _____ _______   /  _____/_____    _____   ____  \n";
print " \_____  \ /  _ \|  | \__  \\_  __ \ /   \  ___\__  \  /     \_/ __ \ \n";
print " /        (  <_> )  |__/ __ \|  | \/ \    \_\  \/ __ \|  Y Y  \  ___/ \n";
print "/_______  /\____/|____(____  /__|     \______  (____  /__|_|  /\___  > \n";
print "        \/                 \/                \/     \/      \/     \/ \n";
print "Version 1.0 Beta\n\n";
print "Developed by Donovan Roudabush\n";
print "https://github.com/sharksfan98/solargame\n\n";
print "Press enter to start\n";
$ok = <STDIN>;
chomp $ok;
print "Enter the number of players\n";
$num = <STDIN>;
chomp $num;

ここで、値$num (プレイヤーの数を格納する) を使用して、名前を収集するために (x) プレイヤーの数について以下の行を出力する方法を教えてください。

print "Please enter your name\n";
$name1 = <STDIN>;  # Name1 can also be Name 2 or Name3 for second or third player
chomp $name1;
4

1 に答える 1

2

ループを使用すると、名前を配列に格納できます。

my @names;
for (1 .. $num) {
    print "Please enter your name\n";
    my $name = <STDIN>;
    chomp $name;
    push @names, $name;
}
于 2013-04-23T18:48:58.197 に答える