Hi all,
Could someone say to me why this program doesn't run? (it doesn't print the database
values)
#!/usr/bin/perl -w
dbmopen(%a,testdb,0666) || die couldn't create/access the file $!;
$a = $b = 0;
until ($a 20){# create items in the testdb.db file
$a{key$a} = $b;
$a = $b++;
-Original Message-
From: Bruno Negrao [mailto:[EMAIL PROTECTED]]
Sent: 24 September 2002 23:49
To: [EMAIL PROTECTED]
Subject: dbmopen doesn't work
Hi all,
Could someone say to me why this program doesn't run? (it
doesn't print the database values)
#!/usr/bin/perl -w
On Tue, Sep 24, 2002 at 07:49:24PM -0300, Bruno Negrao wrote:
#!/usr/bin/perl -w
Where's use strict?
dbmopen(%a,testdb,0666) || die couldn't create/access the file $!;
$a = $b = 0;
until ($a 20){# create items in the testdb.db file
This loop will never run. $a == 0, which is