angel_warrior_3
07-12-2004, 09:15 AM
I am new to perl (progging for about 1/4 a year now) and have stuck to simple code thus far, however, simple code has had me printing increasingly complicated and large HTML pages from the actual program file, and this has obviously resulted in horridly messy code.
So, I decided to step into unknown territories and have so far failed to solve this problem.
That is to say, what I'm trying to do is leave the references on the file then just print the file through the program, therefore slashing the program size and making the code much neater.
However, so far it has not recognised the variable references in the file. (I guess this is a simple problem, but hey)
here's a snapshot of what I'm doing:
HTML FILE: (created with dreamweaver)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
hello $nick
</body>
</html>
__________________
Prog: (created with Komodo)
#!/perl/bin -w
print "Content-type: text/html", "\n";
print "Pragma: no-cache", "\n\n";
$nick = "pumpingpump";
open (NICKTEST, "nicktest.htm");
$count = 0;
while ($nicktest = <NICKTEST>) {
$nickstore[$count] = $nicktest;
$count += 1;
}
close (NICKTEST);
print (@nickstore);
__________________
the output is:
Content-type: text/html
Pragma: no-cache
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
hello $nick
</body>
</html>
and of course, if you have read the above, I want that $nick in the output to be "pumpingpump"
can anyone help me?
So, I decided to step into unknown territories and have so far failed to solve this problem.
That is to say, what I'm trying to do is leave the references on the file then just print the file through the program, therefore slashing the program size and making the code much neater.
However, so far it has not recognised the variable references in the file. (I guess this is a simple problem, but hey)
here's a snapshot of what I'm doing:
HTML FILE: (created with dreamweaver)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
hello $nick
</body>
</html>
__________________
Prog: (created with Komodo)
#!/perl/bin -w
print "Content-type: text/html", "\n";
print "Pragma: no-cache", "\n\n";
$nick = "pumpingpump";
open (NICKTEST, "nicktest.htm");
$count = 0;
while ($nicktest = <NICKTEST>) {
$nickstore[$count] = $nicktest;
$count += 1;
}
close (NICKTEST);
print (@nickstore);
__________________
the output is:
Content-type: text/html
Pragma: no-cache
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
hello $nick
</body>
</html>
and of course, if you have read the above, I want that $nick in the output to be "pumpingpump"
can anyone help me?