(source-code is visible green)
use vars qw($qqq @xxx %zzz $flg); $qqq = "OK.";
/*GATEWAY_INTERFACE: CGI/1.1
comment 18
comment 19
comment 20
comment 21
comment 22
comment 23
comment 24
comment 25
comment 26
*/
foreach(sort keys %ENV){ //28
print STDOUT "$_: $ENV{$_}<br />\n"; //29
} //30
$ep->print(<<__EOP__);/* comments 36 */
/* comments 36 */<br />
// comments 37<br />
# comments 38<br />
__EOP__ /*39*/
$ep->print("# $qqq"); #44# OK.
$qqq = OK.
@xxx = ("a".."c"); #50
<@xxx><p>$_</p>\n</@>
a
b
c
@xxx = a b c
%zzz = ("a"=>[1,2,3],"b"=>[4,5,6]); #58
a | 1 | 2 | 3 |
---|---|---|---|
b | 4 | 5 | 6 |
@{$zzz{a}} = 1 2 3
@{$zzz{b}} = 4 5 6
$flg = 1; print "# not comment<br />\n"; # 69# not comment
<=$flg><p>1</p><!!$flg><p>0</p><!><p>?</p></=>
1
$ep->print(ref($ep)); #74HTML::EmbeddedPerl
$ep->print(ref($ev)); #78HTML::EmbeddedPerl::Vars
define subroutine.
sub test_print{ $ep->print('OK.'); } //83
&test_print; /* 87 */OK.
$ep->header_out('Content-Create','foo'); /* 91 */