ok..still not working..maybe if i do it this way..
here's the code i have for storing..
<snip>
#!/usr/bin/perl -w
use CGI qw(:standard);
use Storable;
print "Content-type:text/html\n\n";
$sname=param('sname');
$spassword=param('spassword');
if (open(MYFILE,"c://studentdata//studentdata.db")) {
#I haven't inserted the read part here, yet.#
close(MYFILE);
} else {
%student = (
student1=>{
username => $sname,
password => $spassword,
},
);
store \%studentlist, 'c://studentdata//studentdata.db';
print "<h1><center>Student was added!</h1><P><P>";
print "<form action='adminlogin.cgi' method='post'>";
print "<input type='hidden' name='name' value='michelle'>";
print "<input type='hidden' name='password' value='phonics'>";
print "<input type='submit' value='Continue'>";
}
</snip>
Is there some "stupid newbie" mistake on here?
Michelle Rogers
----- Original Message -----
From: "Randy W. Sims" <[EMAIL PROTECTED]>
To: "Michelle Rogers" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Saturday, June 19, 2004 12:06 PM
Subject: Re: hashes and writing to file..
> On 6/19/2004 11:51 AM, Michelle Rogers wrote:
> > Hello...
> > I have just started using Perl because I wanted to use it for CGI..
> > I had been using Euphoria for stand-alone
(http://www.rapideuphoria.com).
> > I am trying to create a tutorial type web site, where students log in
and receive instruction, based on what they need help with. It seems I am
stuck at the simplest part, so far..heh..
> > But, I have created a hash of hashes, which I was able to do by looking
at um..i think it is perldocs.com.
> > Anyway, I am now trying to save that hash of hashes to a file...the book
i have (Teach yourself Perl in 24 hours) seems to imply that it is as easy
as using
> >
> > print FILEHANDLE @studentlist;
> >
> >
> > However, this isn't working..it is saving SOMETHING..but when I try to
read back in (by using @studentlist=<FILEHANDLE>;)
> > I am getting something like
> >
> > student1HASH(0x155efb4): { }
> >
> >
> > for the data that is read in.
> >
> > Can someone give me a quick example of how to read/write hashes to a
file?
>
> There are several options.
>
> 1. Perl comes with a module, Storable, that can be used to read/write
> entire data structures easily:
>
> use Storable;
> store \%data, 'file';
> $hashref = retrieve('file');
>
> 2. If you have a larger data set and you only need to look at a subset
> of that data per run, you can use the MLDBM module:
>
> use MLDBM;
> $dbm = tie %data, 'file';
>
> Further up the list would be using a full blown database with the DBI::*
> modules, but the above is probably sufficient.
>
> Regards,
> Randy.
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
