-1

こんにちは、私は現在 List::Util シャッフルを使用して CGI で配列をランダム化していますが、代わりに rand を使用するようにコードを変更したいと考えています。

ここに私のコードがあります

print "Content-type: text/html\n\n";
use List::Util qw(shuffle);
@haikuone = ('behind', 'the', 'red', 'barn');
@haikutwo = ('prairie', 'grasses', 'reclaiming'); 
@haikuthree = ('the', 'basketball', 'court');

@randomize1 = shuffle(@haikuone);
@randomize2 = shuffle(@haikutwo);
@randomize3 = shuffle(@haikuthree);

print "<html>\n";
print "<head><title>Haiku_Random</title></head>\n";
print "<body>\n";
print "<pre>\n";
print "RANDOM HAIKU (DISCLAIMER: NONSENSE MAY OCCUR)\n";

print "@randomize1\n";

print "@randomize2\n";

print "@randomize3\n";

List::Util の代わりに rand を使用するようにこのコードを変更するにはどうすればよいですか?

私はその多くを考えていませんが、ここでは初心者です

私はこれを機能させようとしています

$haikuone = ('behind', 'the', 'red', 'barn');
$haikutwo = ('prairie', 'grasses', 'reclaiming'); 
$haikuthree = ('the', 'basketball', 'court');

@random1 = $line1[rand @haikuone];
@random2 = $line2[rand @haikutwo];
@random3 = $line3[rand @haikuthree];
print "RANDOM HAIKU (DISCLAIMER: NONSENSE MAY OCCUR)\n";
print "$line1\n";

今私がこれをするとき

 #!/usr/local/bin/perl

 @haikuone = ('behind', 'the', 'red', 'barn');
 @haikutwo = ('prairie', 'grasses', 'reclaiming'); 
 @haikuthree = ('the', 'basketball', 'court');

 @random1 = $line1[rand @haikuone];
 @random2 = $line2[rand @haikutwo];
 @random3 = $line3[rand @haikuthree];
 print "RANDOM HAIKU (DISCLAIMER: NONSENSE MAY OCCUR)\n";
 print "@haikuone\n";

Haikuone を出力しますが、ランダム化はしません

4

3 に答える 3

1

常に使用してuse strict; use warnings;ください！次のコードがありますが、、、、、またはという名前@haikuoneの配列はありません。@haikutwo@haikuthree@line1@line2@line3

@random1 = $line1[rand @haikuone];
@random2 = $line2[rand @haikutwo];
@random3 = $line3[rand @haikuthree];

また、それぞれ 1 つの要素を持つ 3 つの配列を使用することも、非常に奇妙です。

于 2013-10-02T20:00:36.763 に答える