?
Solved

Modify An HTML using Perl

Posted on 1998-09-25
4
Medium Priority
?
263 Views
Last Modified: 2010-03-05
I want to ask about how to modify a html using CGI script
(PERL).
I use this to create a CGI Script that can modify name, address, and the comment from a guestbook html file?
How we can load the name, address, comment to our script and
we modify it?
0
Comment
Question by:ichen
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
4 Comments
 
LVL 3

Accepted Solution

by:
zhongbing earned 40 total points
ID: 1205003
if i got all your idea then:
1. write a html with a form with the fields you need: name, address, and comment all anything else. the form's action should be the name of your perl excutable file.
2. the perl script get all the parameter, then instead of modify a html, if should totally wirte a new html file to stdout. it means the perl script create a new html and send it to stdout, the user's brower will get the html.

3 the html example (which have a filed name and message):

<head>
<title> post a message </title>
</head>
<body>
<form method="get"  action="http://sac.uky.edu/cgi-bin/cgiwrap/~jcao0/zh.pl">
<P><input type="text" name="name" size="20">
<P> message: <textarea name="message" cols=30 rows=4></textarea>
<P>
<input type="submit" value="submit">
<input type="reset" value="reset">
<form>
</html>
4 perl cgi example(it get the name and message value then wirte it to new html):
#! /usr/bin/perl
$|=1;
print "Content-type:text/html\n\n";
#print "test perl\n";
 
$buffer=$ENV{'QUERY_STRING'};
 
print"$buffer";
 
@pairs=split(/&/, $buffer);
foreach $pair(@pairs){
        ($name, $value)=split(/=/,$pair);
        $value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
        $form{$name}=$value;
}
print"<title> message board </title>";
print"<h1> message board </h1>";
print"<p> name : $form{'name'}";
print"<p> message : $form{'message'}";
0
 
LVL 1

Author Comment

by:ichen
ID: 1205004
Can I use the perl script  to modify the name, address and comment?
0
 
LVL 1

Author Comment

by:ichen
ID: 1205005
Can I use the perl script  to modify the name, address and comment?
0
 

Expert Comment

by:mazares
ID: 1205006
I use a much simpler method for this kind of situation. I have the "shell" of the html document already present -- in his case, a guestbook form. I place "flags" such as <!put_id_here> in the html document. Then, my script opens the html file, reads it in as STDIN, outputting it a line at a time. If the script encounters the <!flag>, it then outputs the unique information (in html format) required by the particular flag's location in the document. Thus, the resulting html document is customized according to the user, the user's request, or whatever.
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
On Microsoft Windows, if  when you click or type the name of a .pl file, you get an error "is not recognized as an internal or external command, operable program or batch file", then this means you do not have the .pl file extension associated with …
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

718 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question