open (DATAFILE,">/tmp/period.txt");
@newline=join(';',@value);
print ("@newline");
close DATAFILE;
This will only print to STDOUT. What you need to do is print to the
filehandle, DATAFILE. Try this instead:
open (DATAFILE,">/tmp/period.txt");
@newline=join(';',@value);
print (DATAFILE "@newline");
close DATAFILE;
Regards,
Phil Morley
vijay <[EMAIL PROTECTED]>
Sent by: To:
[EMAIL PROTECTED]
[EMAIL PROTECTED] cc:
veState.com Subject: Writing Data In
a File
23/05/02 11:11
Hi All,
I am new in perl world. I want to collect some data
from web page and store it in file. I have written
following html and cgi but its creating only blank
file.
HTML file :
<HTML>
<form method="post"
action="/cgi-bin/FindFile1.cgi">
<CENTER>
<FONT SIZE=+3 COLOR="yellow"> Find File of
specific day </FONT>
<hr SIZE=5 WIDTH="75%" ALIGN="CENTER">
<P>
<P>
<P>
<P>
<FONT SIZE=+1>
<P>
<FONT SIZE=+1 COLOR="purple" >
Please enter date [ DD/MM/YY format ]:<br>
<input type="text" name="name" size="8">
<P>
Please enter Time [ HH:MM:SS format ]:<br>
<input type="text" time="time" size="8">
<P>
</form>
FinedFile1.cgi :-
open (DATAFILE,">/tmp/period.txt");
@newline=join(';',@value);
print ("@newline");
close DATAFILE;
Pl. tell me what should i add more to store data.
Thanks & regards,
Vijay
__________________________________________________
Do You Yahoo!?
LAUNCH - Your Yahoo! Music Experience
http://launch.yahoo.com
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
