in reply to Re: Re: how to hash this
in thread how to hash this

Your error is in the exact line that Perl complains about. It is in the exact spot that Perl complains about. Why do you not believe Perl?

Simply change your code to read:

last if ($line =~ /End Product/);

There is no ~= operator in Perl, which is what the first error means.

As for the second error, you're declaring $ref in the same line in which you try to access it. Why would there be anything in $ref, much less a hash reference that contains a key named 'name'?

I suggest rereading perldoc perlop, perlvar, and maybe perlref.

Replies are listed 'Best First'.
Re: Re: Re: Re: how to hash this
by malaga (Pilgrim) on Apr 01, 2001 at 02:14 UTC
    ok, sorry. i believe, i believe. the first mistake was stupid. the second, i still don't get. i thought this:
    while ( <FILE> ) {
  if ( /^Begin Product (.*)/i ) {  
    my %hash;
    $hash{ 'name' } = $1;  
    $hash{ 'description' } = <FILE>;
    $hash{ 'numberline1' } = <FILE>;

    [download]

    was putting each line of the file into the hash with the key names being 'name', 'description', 'numberline1', etc.
[reply]
[d/l]

      "i thought this: ... was putting each line of the file into the hash"

      It is. The problem is that you need to declare $ref before the print line. You're also declaring $hash and never using it and you're declaring %hash and $line twice.

      Plus, @products is being populated for you (or, rather, it would be if you weren't lasting right before it all the time) but you're never using it. I say, ditch $ref and use @products. 

      open (FILE, $lfilename) or &dienice;
# my $hash;  # Never used.  ???

# my $line;  # Declared my inside the while(). ???
# my %hash;  # Declared my inside the while(). ???
my @products;
while ( <FILE> ) {
  if ( /^Begin Product (.*)/i ) {  
    my %hash;
    $hash{ 'name' } = $1;  
    $hash{ 'description' } = <FILE>;
    $hash{ 'numberline1' } = <FILE>;
    $hash{ 'numberline2' } = <FILE>;
    my $track = <FILE>;
    $hash{ 'tracking' } = ( $track =~ /(Yes|No)/i );
    $hash{ 'images' } = <FILE>;
    $hash{ 'producttext' } = <FILE>;
    my $line = <FILE>;

# Why are you doing this, anyway?
#    last if ( $line =~ /End Product/ );

    push @products, \%hash;
}}

# @products contains all of your hashes.
# Lookup the one you want in it.
print "<B>$products[0]{name}</B>";

# Where was $ref supposed to've come from?
# print "<B>", my $ref->{name}, "</B>";

      [download]

      Well, I hope that helps some. You should definately read perlref.

      bbfu
      Seasons don't fear The Reaper.
      Nor do the wind, the sun, and the rain.
      We can be like they are.

[reply]
[d/l]
[select]
        ok, i've had 3 beers at my sons wrestling awards, but let me give it a try: this is what i think i'm doing:

        1. i can't just use the array, because the records will not always have the same number of lines.
        2. i think i have to use last because the lines between  Begin Record and  End Recordneed to go into separate records, since i need to search through and pull specific items from them later.
        am i way off base?

        cheers!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom