I installed perl under windows 98 and i'm new to this whole module stuff. I installed MLBDM using the PPM Interactive Shell. After installing, my script still not working and here's the code:
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
use MLDBM qw(DB_File Storable);
use Fcntl;
my %car=();
tie (%car, "MLDBM", "car_data",
O_CREAT|O_RDWR, 0666, $DB_File:
B_BTREE) ||
die "Could not open or create database.";
$car{'JN1HU11P1HX875232'} =
{ 'make' => 'Nissan',
'model' => 'Maxima',
'year' => '1997',
'color' => 'evergreen'
};
$car{'1GNDM15Z2HB187252 '} =
{ 'make' => 'Chevrolet',
'model' => 'Astro',
'year' => '1999',
'color' => 'black'
};
print "Inventory contains: \n";
foreach (keys %car) {
print $_ . ":\t".$car{$_}{make}." ".$car{$_}{model}."\n";
}
untie (%car);
Is it the code or installation? To test all my script, I use the service from F2S.com. Does they have to install too? Thanks for reading and hope you can help.
-Aaron
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
use MLDBM qw(DB_File Storable);
use Fcntl;
my %car=();
tie (%car, "MLDBM", "car_data",
O_CREAT|O_RDWR, 0666, $DB_File:
die "Could not open or create database.";
$car{'JN1HU11P1HX875232'} =
{ 'make' => 'Nissan',
'model' => 'Maxima',
'year' => '1997',
'color' => 'evergreen'
};
$car{'1GNDM15Z2HB187252 '} =
{ 'make' => 'Chevrolet',
'model' => 'Astro',
'year' => '1999',
'color' => 'black'
};
print "Inventory contains: \n";
foreach (keys %car) {
print $_ . ":\t".$car{$_}{make}." ".$car{$_}{model}."\n";
}
untie (%car);
Is it the code or installation? To test all my script, I use the service from F2S.com. Does they have to install too? Thanks for reading and hope you can help.
-Aaron