in reply to Two keys with the same name in a hash.

a hash which is a dbm file(simple database).
Which one (there are many)?
then after modifying something (except $fname of course)
But the first thing you do is modify $fname (($fname,$lname,$age,$dep)= unpack ($pack_rules,$DATABASE{$fname});).
Any suggestions?
Give How (Not) To Ask A Question a read.

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

Replies are listed 'Best First'.
Re^2: Two keys with the same name in a hash.
by sashac88 (Beadle) on Feb 09, 2005 at 10:00 UTC
    I use dbmopen to create/open this dbm database file.
    The version of perl is 5.8.6 Activeperl.
    The key name and the first variable to pack- have the same
    name.
    Moreover, the problem doesn't grow further,i.e. When there
    already are 2 keys with the same name the last one can be
    modified with the mentioned above way.
[reply]
      I use dbmopen to create/open this dbm database file.
      The version of perl is 5.8.6 Activeperl.
      You're probably using DB_File. Run 
      perl -MAnyDBM_File -le"print for @AnyDBM_File::ISA"

      [download]
      to verify.

      DB_File (or specifically DB_HASH, which is what you're using) doesn't allow multi-valued keys, so chances are you've misdiagnosed the situation. Insert the following snippet and examine your database

      use Data::Dumper;
$Data::Dumper::Indent=1;
$Data::Dumper::Useqq=1;
die Dumper( \%DATABASE );

      [download]
      you'll be suprised what you find.

      Unless you have a good reason to use dbmopen, you should switch to the tie interface.

      MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
      I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
      ** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom