Question

我编写了一个眼科检查，我需要回显一些存储的SESSION变量，这些变量包含它们的结果，但是它们需要在另一个变量中，然后我使用HTML打印，即使我刷新页面，那些SESSION变量也存储了它们的值并再次显示该值，以便它应该只在我完成考试后显示这些值

#!/usr/bin/perl
use warnings;
use strict;

open my $SINGLE, '<', 'file2' or die $!;
my %known;
while (<$SINGLE>) {
    chomp;
    $known{$_} = 1;
}

open my $LIST, '<', 'file1' or die $!;
while (<$LIST>) {
    chomp;
    my @keep = grep $known{$_}, split /,/;
    print join(',', @keep), "\n";
}

这是我稍后使用HTML

显示的变量

 $result_display = "<h1> Your Results For The Eye Exam Are:<br>
               Test 1 Left EYE:  '".$_SESSION['one_L']."' <br>
               Test 1 Right EYE: '".$_SESSION['one_R']."' <br>
               Test 2 Left  EYE: '".$_SESSION['two_L']."' <br>
               Test 2 Right EYE: '".$_SESSION['two_R']."' </h1>";

我甚至可以做什么来阻止在考试开始之前显示它。

我可以使用这样的条件吗？

 echo"<h1>'".$result_display."'</h1>";

Answer 1

正如@naruto上面所述，用if：

包装回声

所以

def postMethod = Action(parse.tolerantText) { request =>
    val txt = request.body
}

变为

echo"<h1>'".$result_display."'</h1>";

Answer 2

如果在测试结束时设置$ _SESSION [＆＃39; two_R＆＃39;]，请使用：

if(isset($_SESSION['two_R'])){

   echo $result_display;

}

或者将isset检查中的$ _SESSION [＆＃39; two_R＆＃39;]替换为在考试结束后设置的任何变量。

在变量中存储Echo命令

2 个答案: