PERL CGI 新手遇到问题，望大家指教！！

松岛骆驼

UID: 12756
帖子: 189
积分: 434
在线时间: 2 天

1^# 松岛骆驼发表于 2007-06-09 21:43

PERL CGI 新手遇到问题，望大家指教！！

PERL CGI 新手遇到问题，望大家指教！！

题目如下，
1到10，是偶数显示其数字及 X 表示。
例如（6，就是6
XXXXXX )

奇数，显示其数字及用@ 表示。
例如（3，就是 3
@@@ )
以上

要求，使用 IF 和 WHILE 。

我自己用以下思路完成，但实行无效，实在是脑浆崩裂，请前辈指教！！

#! c:/perl/bin/perl

$role = int(rand 10) + 1;

print "Content-type: text/html\n\n";
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>perlさいころ</title></head>\n";
print "<body><p><big>$role</big></p>\n<p>";

$i = $role;
if($i % 2 == 0){
while($i > 0)
print '*';
--$i;
}
else {
内容自己觉得不对
}

print "</p><body>\n";
print "</html>";[CCB]10[/CCB][CCB]10[/CCB]

anthony

UID: 5578
帖子: 196
积分: 450
在线时间: 2 天 4 小时

2^# anthony 发表于 2007-06-09 22:24

perl -e "print (($ARGV[0.
perl -e "print (($ARGV[0] % 2 ? '@' : 'X') x $ARGV[0])" 11
perl -e "print (($ARGV[0] % 2 ? '@' : 'X') x $ARGV[0])" 20