Aha!

Suzanne — Fri, 02 Mar 2001 02:31:08 +0000

Okay, I fixed it! All by myself (and 7 books, ha ha)...

# @keys = keys %events;

@allkeys = keys %events;

foreach $key (@allkeys) {...}

WHEE!

And I even sort of understand it, for pete's sake. *ah*

Thank you very much Japhy, for getting me over this hurdle. Now to finish the blinking script! THANK YOU!

Suzanne

Hideous? no...

Suzanne — Fri, 02 Mar 2001 01:59:16 +0000

Totally over my head, yes!

But I will get there.

In this project I have learned about 700x more than I even thought I could learn, not that I'm any risk to Perl professionals, but I am a little more confident about how to *approach* a project, if nothing else.

***

Okay, we have reading!! YAY!

However...

@keys = keys %events;
@values = values %events;

foreach $key (%events) {

# print the form insides, with the keys as the option values

print "<option value=\"$key\">Event: $events{'$key'}[0]\n";

}

Returns this:

<option value="11">Event: Bacchanalia Gala Dinner &amp; Auction
<option value="ARRAY(0x12dc98)">Event: 
<option value="30">Event: Trade Event (Buyers &amp; Servers)<br>To Pair or Not to Pair California Style
<option value="ARRAY(0x133380)">Event: 
<option value="12">Event: California Vino-A-Go-Go
<option value="ARRAY(0x12dd28)">Event: 
<option value="31">Event: Trade Event (Consumer &amp; Trade)<br>California Vino-A-Go-Go
<option value="ARRAY(0x13502c)">Event: 

Hunh?

Suzanne (who is so happy right now to anything at all, she's kind of loopy)

My Web Site (click the 'website' button above this post)

japhy — Fri, 02 Mar 2001 00:51:29 +0000

I recently revamped my web site with CSS. It looks quite spiffy in my opinion.

I keep track of my important Perl work there. The latest thing I've added is the OGRE program. Soon to be added is a link to my "The Perl Conference 5.0" presentation on "Reverse Perlish Notation".

Imagine writing the code I showed you before:

use Data::Dumper;

# first, read in the hash from the file:
do "allwineries.dat";  # creates %wineries

# then, modify it
$wineries{$newuser} = [ 1,2,3 ];

# then, save it
open OUT, "> allwineries.dat";
print OUT Data::Dumper->Dump([\%wineries], ['*wineries']);
close OUT;

in RPN:

Data::Dumper use;

# first, read in the hash from the file:
"allwineries.dat" do;  # creates %wineries

# then, modify it
wineries$ newuser${} 1, 2, 3[] =;

# then, save it
OUT, "> allwineries.dat" open;
OUT Data::Dumper wineries%\[], '*wineries'[] Dump -> print;
OUT close;

Yes, it looks hideous to you now, but wait until the presentation contents have been created (and completed), and then the specifications will be perfectly clear...

Do you have a wishlist?

Suzanne — Fri, 02 Mar 2001 00:42:27 +0000

I can't believe how wonderfully helpful you have been.

The data is writing perfectly to the data file now.

I am going to "fix" the allevents.dat file and see if I can get it to read it properly.

If you have a wishlist and/or a website, please let me know!

Suzanne

japhy — Fri, 02 Mar 2001 00:22:12 +0000

use Data::Dumper;

# first, read in the hash from the file:
do "allwineries.dat";  # creates %wineries

# then, modify it
$wineries{$newuser} = [ ... ];

# then, save it
open OUT, "> allwineries.dat";
print OUT Data::Dumper->Dump([\%wineries], ['*wineries']);
close OUT;

Alrighty then...

Suzanne — Fri, 02 Mar 2001 00:18:32 +0000

Here's the deal...

The information for the hash comes in through a form, but I can't write this:

%hash = ($name => [$id,$country,$table,$wines,$details,$rep,$repphone,$web]);

open OUTPUT, ">>allwineries.dat";

print OUTPUT Data::Dumper->Dump([ \%hash ], ['*wineries']);

close OUTPUT;

Because then I get this:

%wineries = (
              'Suzannec' => [
                              'SDGON',
                              'Canada',
                              65,
                              'asdfasd<br>asdf<br>asd<br>asdf<br>asdf<br>asdgadpogjasdg<br>',
                              'asldfjo;isau asdlk ouasek glkoiuw nlkwlia gnklu obual.',
                              'Vancouver BC',
                              'Vancouver BC',
                              'http://www.somethingorother.com'
                            ]
            );
%wineries = (
              'Suzanne' => [
                             'SDGYYON',
                             'Canada',
                             65,
                             'asdfasd<br>asdf<br>asd<br>asdf<br>asdf<br>asdgadpogjasdg<br>',
                             'asldfjo;isau asdlk ouasek glkoiuw nlkwlia gnklu obual.',
                             'Vancouver BC',
                             'Vancouver BC',
                             'http://www.somethingorother.com'
                           ]
            );

Which is obviously not what I want in there.

So I have data::dumper working (thank you again, Japhy), but not quite as intended. How do I use it to ADD keys to the hash? This is just so frustrating!!!

Suzanne

Okay, I've really screwed it up now!

Suzanne — Thu, 01 Mar 2001 23:13:45 +0000

This is what I am getting as generated (a portion)!

<option value="SERVER_SOFTWARE">
<option value="Netscape-Enterprise/2.01d">
<option value="GATEWAY_INTERFACE">
<option value="CGI/1.1">
<option value="REMOTE_ADDR">
<option value="154.5.152.106">
<option value="SERVER_PROTOCOL">
<option value="HTTP/1.1">
<option value="REQUEST_METHOD">
<option value="POST">
<option value="REMOTE_HOST">
<option value="154.5.152.106">
<option value="SERVER_URL">

Oh boy.

At least I know where the problem is... *sigh*

Edited to add: I have it so it isn't doing this now, however... Now it isn't printing anything, it doesn't seem to be reading the information from the dat file (but no more errors, just blankness).

Help!

[Edited by Suzanne on Mar. 01, 2001 at 06:30 PM]

Says the same damn thing.

Suzanne — Thu, 01 Mar 2001 17:14:53 +0000

"Server Error
This server has encountered an internal error which prevents it from fulfilling your request. The most likely cause is a misconfiguration. Please ask the administrator to look for messages in the server's error log."

*sigh*

Further edits and now it says:

Bad name after pm:: at /u02/external/winefest/cgi-bin/allevents.dat line 16.

And it *still* isn't reading the hash.

Edit #2: Okay, fixed the error in the data in the allevents.dat file (missing a \' had a ' instead)... So the page is working perfectly except for the most important part -- it's not reading the data, it seems.

Thank you Matt, for this help, truly. I am now specifically instead of globally frustrated!

Suzanne

[Edited by Suzanne on Mar. 01, 2001 at 05:59 PM]

Mark Hensler — Thu, 01 Mar 2001 08:36:23 +0000

add CGI::Carp qw(fatalsToBrowser); near the top (2nd line)
what does it say now?

Suzanne — Thu, 01 Mar 2001 02:31:50 +0000

Sample data is a few posts up. See the problem is the data already exists, so it has to be in the right format, right?

*sigh*

The data is created through a form, so I have to write the format of the hash (right?), which I have done, which is...

'key' => ['item0','item1'],

I have removed all new lines and returns from text areas (using $variable =~ s/\r//g; et cetera), and I replaced all single quotes with \' as well.

What the heck am I missing?! I can't get data::dumper to work at all, either, btw, same thing -- constant 500 internal server errors, even when I used your code that you gave me earlier. I know I must be doing something totally daft, but I just can't see it.

Suzanne

'0' => ['A Coastal Affair: Callaway Vineyards','April 2,
2001','Chartwell's at the Four Seasons Hotel','6:00
pm','9:00 pm','$99, only available through Chartwell's at
(604) 689-9333','Reception Style Food & Wine','Please join
Chef Anderson from the Four Seasons Hotel and winemaker John
Falcone from Callaway Vineyards for a wonderful evening of
the finest California coastal wines paired with the finest
culinary delights from the Pacific Northwest. This evening
promises to delight the senses and the palate.','','0'],
'1' => ['The Other 'Down Under'','April 2, 2001','Sweet
Obsession at Trafalgars','6:00 pm','9:00 pm','$95, only
available through Sweet Obsession at Trafalgars at (604)
739-0555','Formal Sit Down Food & Wine','In true Kiwi style,
experience an intimate evening featuring New Zealand wine
and food with a Canadian flair.  Trafalgars chef Chris Moran
and pastry chef Tracy Kadonoff will create a truly Canadian
feast to pair with limited production New Zealand wines
showing the range of styles produced across both islands,
and from several wineries - Longridge, Stoneleigh,
Corbans.','','1'],

[Edited by Suzanne on Feb. 28, 2001 at 09:43 PM]

Aha!

Hideous? no...

My Web Site (click the 'website' button above this post)

Do you have a wishlist?

Alrighty then...

Okay, I've really screwed it up now!

Says the same damn thing.

More