NEW TO PERL / PROGRAMMING - NEED HELP URGENT!!!
ARE WORKING ON A PERL-SCRIPT TO EDIT A "MEMBERS DATABASE" (RAW):
#!/usr/bin/perl
use CGI qw
all);
print "Content-type: text/html\n\n";
open ($inf, 'data/members.dat');
@data = <$inf>; close ($inf);
print <<END_HTML;
<html><head><title>Edit Database</title></head><body>
<form name="form1" method="post" action="output.pl">
<textarea name="editDB" wrap="off" style="font-family: Verdana, Arial, Helvetica,
sans-serif; font-size: 11px; color: #000000; width:800px; height:500px">@data</textarea>
<input type="hidden" name="password" value="dvy820ppK">
<p>
<a href="javascript:document.forms.form1.submit()">Save Changes</a>
</form>
</body></html>
END_HTML
THIS DISPLAYS IN THE TEXTBOX:
Jack|j_smith@gibnet.gi|dsJz6adewPDOs|03|March|19... aso
Rebecca|rebecca45689@hotmail.com|I4MS2Cd2er7Aka... aso
Neo|neo11712@hotmail.com|eXd7PSeYiCb8s|11|April... aso
next line and so on...
PROBLEM IS, I WANT IT LIKE THIS:
Jack|j_smith@gibnet.gi|dsJz6adewPDOs|03|March|19... aso
Rebecca|rebecca45689@hotmail.com|I4MS2Cd2er7Ak|1... aso
Neo|neo11712@hotmail.com|eXd7PSeYiCb8s|11|April|... aso
next line and so on...
---------------------------------------------
OUTPUT.PL
#!/usr/bin/perl
use CGI qwall);
print "Content-type: text/html\n\n";
$check = 'dvy820ppK';
@data = param('editDB');
$ecurity = param('password');
if ($ecurity eq $check) {open ($inf,'>data/members.dat')} else {exit}
print $inf "@data";
FURTHER PROBLEM, THIS WILL MAKE THE DATABASE TO LOOK LIKE THIS: (completely useless!)
Jack|j_smith@gibnet.gi|dsJz6adewPDOs|03|March|1... aso
Rebecca|rebecca45689@hotmail.com|I4MS2Cd2er7Ak... aso
Neo|neo11712@hotmail.com|eXd7PSeYiCb8s|11|Apri... aso
next line and so on...
PROBLEM IS, I NEED IT LIKE THIS TO WORK:
Jack|j_smith@gibnet.gi|dsJz6adewPDOs|03|March|1... aso
Rebecca|rebecca45689@hotmail.com|I4MS2Cd2er7Aka... aso
Neo|neo11712@hotmail.com|eXd7PSeYiCb8s|11|April... aso
next line and so on...
----------------------------------------------------------------
ANYONE PLEASE... ANY IDEAS HOW TO SORT THIS PROBLEM?
SNIP OF JAVASCRIPT?
WRITE SCRIPT DIFFERENT?
STOP "SWABBLING" WITH PERL AND GO FISHING?
WHATEVER?
HELP!
Pstrom =(
ARE WORKING ON A PERL-SCRIPT TO EDIT A "MEMBERS DATABASE" (RAW):
#!/usr/bin/perl
use CGI qw
all);print "Content-type: text/html\n\n";
open ($inf, 'data/members.dat');
@data = <$inf>; close ($inf);
print <<END_HTML;
<html><head><title>Edit Database</title></head><body>
<form name="form1" method="post" action="output.pl">
<textarea name="editDB" wrap="off" style="font-family: Verdana, Arial, Helvetica,
sans-serif; font-size: 11px; color: #000000; width:800px; height:500px">@data</textarea>
<input type="hidden" name="password" value="dvy820ppK">
<p>
<a href="javascript:document.forms.form1.submit()">Save Changes</a>
</form>
</body></html>
END_HTML
THIS DISPLAYS IN THE TEXTBOX:
Jack|j_smith@gibnet.gi|dsJz6adewPDOs|03|March|19... aso
Rebecca|rebecca45689@hotmail.com|I4MS2Cd2er7Aka... aso
Neo|neo11712@hotmail.com|eXd7PSeYiCb8s|11|April... aso
next line and so on...
PROBLEM IS, I WANT IT LIKE THIS:
Jack|j_smith@gibnet.gi|dsJz6adewPDOs|03|March|19... aso
Rebecca|rebecca45689@hotmail.com|I4MS2Cd2er7Ak|1... aso
Neo|neo11712@hotmail.com|eXd7PSeYiCb8s|11|April|... aso
next line and so on...
---------------------------------------------
OUTPUT.PL
#!/usr/bin/perl
use CGI qw
all);print "Content-type: text/html\n\n";
$check = 'dvy820ppK';
@data = param('editDB');
$ecurity = param('password');
if ($ecurity eq $check) {open ($inf,'>data/members.dat')} else {exit}
print $inf "@data";
FURTHER PROBLEM, THIS WILL MAKE THE DATABASE TO LOOK LIKE THIS: (completely useless!)
Jack|j_smith@gibnet.gi|dsJz6adewPDOs|03|March|1... aso
Rebecca|rebecca45689@hotmail.com|I4MS2Cd2er7Ak... aso
Neo|neo11712@hotmail.com|eXd7PSeYiCb8s|11|Apri... aso
next line and so on...
PROBLEM IS, I NEED IT LIKE THIS TO WORK:
Jack|j_smith@gibnet.gi|dsJz6adewPDOs|03|March|1... aso
Rebecca|rebecca45689@hotmail.com|I4MS2Cd2er7Aka... aso
Neo|neo11712@hotmail.com|eXd7PSeYiCb8s|11|April... aso
next line and so on...
----------------------------------------------------------------
ANYONE PLEASE... ANY IDEAS HOW TO SORT THIS PROBLEM?
SNIP OF JAVASCRIPT?
WRITE SCRIPT DIFFERENT?
STOP "SWABBLING" WITH PERL AND GO FISHING?
WHATEVER?
HELP!
Pstrom =(