File: chdir.htm

package info (click to toggle)
libhtml-embperl-perl 1.3.6-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,524 kB
  • ctags: 1,182
  • sloc: ansic: 8,983; perl: 4,555; makefile: 83
file content (33 lines) | stat: -rwxr-xr-x 578 bytes parent folder | download | duplicates (2) 
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
30
31
32
33
 
<html>
<head>
<title>Some tests for Embperl</title>
</head>


<body>

[- use Cwd  -]

Script  CWD: [+ $script = getcwd +] <BR>
Embperl CWD: [+ $ep =     $HTML::Embperl::cwd +] <BR>
$0: [+ $abs = $0 +]

[- $abs = $ep . '/' . $0  if (!($0 =~ /^(\w:)?\//)) ; -]
$0 (absolut): [+ $abs +]

Equal: [+ $script eq $ep?'Yes':'No' +]<BR>
Diff CWD: [+ do { $script =~ /$ep/ ; ">$'<" } +]<BR>
Diff $0: [+ do { $abs =~ /$ep/ ; ">$'<" } +]<BR>

[- @ks = sort keys %fdat -]

	<table>
		<tr>
			<td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
		</tr>
	</table>



</body>
</html>