Eval將HTML插入運行代碼的Perl CGI腳本中？

Question

#!/usr/bin/perl

open FILE, '<', 'evfile';
@file = <FILE>;

$char1 = "123456";
$char2 = "holy cow";

我想在這里彈出FILE的代碼並顯示變量

 $char1 and $char2

我嘗試了以下

#1
{eval @file;}

#2
{print (eval @file);}
#3
{for(@file){
print (eval $_;);
}
}

我為FILE嘗試了兩種不同的方法，使文件成為帶有打印語句的Perlscript，而只是HTML文件

一種

#!/usr/bin/perl
print BBBBXM
<html>
 <head> 
 <title>A Simple Perl CGI</title>
 </head>
 <body>
 <h1>A Simple Perl CGI</h1>  


 <p>$char1   </p>
 <p> $char2 </p> 
</body>
 </html>
BBBBXM

乙

html>
 head> 
 title>A Simple Perl CGI</title>
 /head>
 body>
 h1>A Simple Perl CGI</h1>  


 p>$char1   </p>
 p> $char2 </p> 
/body>
 /html>

Answer 1

如果您正在尋找一個成熟而穩定的模板系統，請看一下可用的CPAN模塊（例如Mason）的豐富性。

如果您是DIY類型：

eval對待作為Perl代碼給出的字符串 （不是數組）進行處理。 顯然，HTML不符合Perl的資格。

要插入某個占位符，例如某種$name語法，我可以這樣做：

# hashes are better
my %replacements = (
  char1 => "123456",
  char2 => "holy cow",
);

foreach my $line (@file) {
  $line =~ s{\$(\w+)}{
    exists $replacements{$1}
    ? $replacements{$1}      # substitute, if replacement is defined
    : "$" . $1               # else return the placeholder name
  }ge;                       # /e/xecute replacement
  print $line;
}

Eval將HTML插入運行代碼的Perl CGI腳本中？

問題描述

一種

乙

1 個解決方案

解決方案1
1 2012-09-21 02:23:17

Eval將HTML插入運行代碼的Perl CGI腳本中？

問題描述

一種

乙

1 個解決方案

解決方案1 1 2012-09-21 02:23:17

解決方案1
1 2012-09-21 02:23:17