Question

我正在编写一个数字猜测游戏的cgi脚本，我想将目标值存储在可读写的文件中。我不知道该怎么做，但我相信我可以使用system（）调用来执行它和某种类型的表达式来从该文件中提取值。我需要帮助确定解决方案;我已经有了以下内容：

#!/usr/bin/perl -w
use CGI qw(:standard);
print header, start_html("Guessing Game"), h2("Guessing game"), "\n";

//need some type of system call to store value if one does not exist 
//or read it if it does (random value generated below)

srand( time() ^ ($$ + ($$ << 15)) );
my $target = int(rand 100) + 1; 

if ( !param() ) {
    print hr, "\n", start_form;
    print p("Try to guess a number between 1 and 100: ", textfield("guess")), "\n";
    print end_form, "\n", hr;
} else {
    print hr, "\n", start_form;
    my $guess = param("guess");
    if ($guess > $target) {
        print p ("$guess is too high; try again: ", textfield("guess")), "\n";
    } elsif ($guess < $target) {
        print p ("$guess is too low; try again: ", textfield("guess")), "\n";
    } else {
        print p ("You got it: $guess!");
        //erase value from file
    }
print end_form, "\n", hr;
}
print end_html, "\n";

Answer 1

虽然将值存储在平面文本文件中当然是可能的，但您确实需要记住Web类型环境面临的并发问题。第一个问题是您需要为每个用户提供会话ID，这通常在隐藏字段或cookie中来回传递。该会话ID需要与此平面文件中的目标号码一起存储，以便您可以识别哪个幻数对应于哪个会话。经过一段时间不活动后，您需要删除该号码。这是很多工作，甚至没有开始解决同时发生的几次点击的问题。你必须处理文件锁定等。

更加理智的方法是简单地将魔术数字作为隐藏字段或cookie传递来回传递。隐藏的领域会更容易。然后使用诸如Crypt::Rijndael之类的模块在传递之前加密幻数，并在接收时对其进行解密。 ...如果这看起来比你真正需要的安全性更高，你可以想出你自己的策略，比如base64编码，或类似的东西;重量轻，但对于休闲观众而言足够好。

这避免了跟踪用户会话的需要;每个用户以猜测形式中嵌入的隐藏字段的形式拥有自己的会话。

更新： CGI::Session默认情况下，如果未指定驱动程序，则将会话信息存储在平面文件中。这抽象出了并发和会话管理的细节。

Answer 2

使用open打开文件。

use strict;

# Get number
open(my $infh, '<', '/path/to/file') or die "Cannot open: $!";
my $number = <$infh>;
close($infh);
chomp($number); # removes newline, just in case

# Save number
open(my $outfh, '>', '/path/to/file') or die "Cannot open: $!";
print $outfh $number;
close($outfh);

cgi数字猜测游戏 - 将值存储在可读写文件中

2 个答案: