1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
<html>
<head>
<title>Test for predefined Embperl variables and [ $ var $ ]</title>
</head>
$conf = <br>
^\$_\[0\] = Embperl::Req=HASH\(0x.*?\) <br>
$_[1] = <br>
^\$rec_rec = Apache2?(::RequestRec)?=SCALAR\(0x.*?\)<br>
^\$\$rec_rec = -?\d+<br>
^Apache->request = Apache2?(::RequestRec)?=SCALAR\(0x.*?\)<br>
^\$\{Apache->request\} = -?\d+<br>
${Apache->request} = $$req_rec ? yes <br>
^.*?test\/html\/varepvar\.htm
<table>
<tr><td>a</td><td>1 </td></tr>
<tr><td>b</td><td>2 </td></tr>
</table>
</body>
</html>
|
