Thread In Perl Script: Javascript Code auslagern (5 answers)
Opened by Gast at 2005-02-12 15:59

Gast Gast
 2005-02-12 15:59
#4354 #4354
Ich wollte im folgenden (sehr verkürztem Perl-Script) den Javascript Code auslagern
(Ersetzen der 5 Zeilen des Scripts unten durch
Code: (dl )
 <script language="JavaScript1.2" SRC="..//myJSlib/test.js">

)
Im Originalskript kam korrekt das Alert-Fenster mit dem Text "ungültig".
In der 2. Version wird die Zuweisung nicht erkannt und es kommt der Text "$Fehler".
Woran kann dies liegen ?? Wie kann ich den Javascript-Code trotzdem auslagern ?
test.pl:

Code: (dl )
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
34
35
#!/usr/bin/perl -wT
use strict;
print "Content-type: text/html\n\n";

#
# bla bla bla
#

use vars qw($Fehler);
$Fehler = "ungültig";

#
# bla bla bla
#

print <<"EOT";

<HTML>
<HEAD>
[b]
<script language="JavaScript1.2">
<!--
alert ("$Fehler");
//-->
</script>
[/b]

</HEAD>
<BODY>

<h1 align="center">Kopfzeile1</h1>
</BODY>
</HTML>

EOT


test.js:
Code: (dl )
alert ("$Fehler");[/b]

View full thread In Perl Script: Javascript Code auslagern