RE: WELCOME to beginners@perl.org

[Ajay Kumar]

 Hi All

I have great issues 

1) perl -e '$a=0.123451005;$a=sprintf("%.8f",$a);print"=$a\n";'
Output=0.12345101
2) perl -e '$a=5.123451005;$a=sprintf("%.8f",$a);print"=$a\n";'
Output=5.12345100


Here 1 one ging correct result but the second one wrong result
For second one result should be 5.12345101 but it is giving 5.12345100


May I know  why it behabe So
Perl says for commercial data it does not work for some values

Let me know if you have any other function that do round of with great
accuracy



Thanks in advance
Ajay

-Original Message-
From: beginners-h...@perl.org [mailto:beginners-h...@perl.org] 
Sent: Friday, August 21, 2009 3:43 PM
To: Ajay Kumar
Subject: WELCOME to beginners@perl.org

Hi! This is the ezmlm program. I'm managing the beginners@perl.org mailing
list.

I'm working for my owner, who can be reached at beginners-ow...@perl.org.

Acknowledgment: I have added the address

   aku...@securities.com

to the beginners mailing list.

Welcome to beginn...@perl.org!

Please save this message so that you know the address you are subscribed
under, in case you later want to unsubscribe or change your subscription
address.

To unsubscribe, send a message to:




--- Administrative commands for the beginners list ---

I can handle administrative requests automatically. Please do not send them
to the list address! Instead, send your message to the correct command
address:

For help and a description of available commands, send a message to:
   

To subscribe to the list, send a message to:
   

To remove your address from the list, just send a message to the address in
the ``List-Unsubscribe'' header of any list message. If you haven't changed
addresses since subscribing, you can also send a message to:
   

or for the digest to:
   

For addition or removal of addresses, I'll send a confirmation message to
that address. When you receive it, simply reply to it to complete the
transaction.

If you need to get in touch with the human owner of this list, please send a
message to:



Please include a FORWARDED list message with ALL HEADERS intact to make it
easier to help you.

--- Enclosed is a copy of the request I received.

Return-Path: 
Received: (qmail 32276 invoked from network); 21 Aug 2009 10:12:35 -
Received: from x1.develooper.com (207.171.7.70)
  by x6.develooper.com with SMTP; 21 Aug 2009 10:12:35 -
Received: (qmail 7248 invoked by uid 225); 21 Aug 2009 10:12:35 -
Delivered-To:
beginners-sc.1250849482.ipnnaiiimllkohongcig-akumar=securities@perl.org
Received: (qmail 7242 invoked by alias); 21 Aug 2009 10:12:34 -
X-Spam-Status: No, hits=-2.7 required=8.0
tests=RCVD_IN_DNSWL_MED,URI_HEX
X-Spam-Check-By: la.mx.develooper.com
Received: from mail196.messagelabs.com (HELO mail196.messagelabs.com)
(216.82.254.67)
by la.mx.develooper.com (qpsmtpd/0.28) with SMTP; Fri, 21 Aug 2009
03:12:29 -0700
X-VirusChecked: Checked
X-Env-Sender: aku...@securities.com
X-Msg-Ref: server-7.tower-196.messagelabs.com!1250849485!27709280!5
X-StarScan-Version: 6.1.3; banners=securities.com,-,-
X-Originating-IP: [216.255.90.88]
Received: (qmail 21246 invoked from network); 21 Aug 2009 10:11:27 -
Received: from in005.mci.com (HELO kodg383194.msp.tech.int.digex.com)
(216.255.90.88)
  by server-7.tower-196.messagelabs.com with SMTP; 21 Aug 2009 10:11:27
-
Received: from kodg383193.msp.tech.int.digex.com ([10.160.18.74]) by
kodg383194.msp.tech.int.digex.com with Microsoft SMTPSVC(6.0.3790.1830);
 Fri, 21 Aug 2009 06:12:24 -0400
Received: from ajay ([124.30.131.134]) by kodg383193.msp.tech.int.digex.com
with Microsoft SMTPSVC(6.0.3790.1830);
 Fri, 21 Aug 2009 06:12:23 -0400
Reply-To: 
From: "Ajay Kumar" 
To:

Subject: RE: confirm subscribe to beginners@perl.org
Date: Fri, 21 Aug 2009 15:42:18 +0530
MIME-Version: 1.0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit
X-Mailer: Microsoft Office Outlook, Build 11.0.5510
Thread-Index: AcoiR8Czu1xfTB06RMyezHdCgWmvywAABtBg
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5579
In-Reply-To: <1250849482.30394.ez...@perl.org>
Return-Path: aku...@securities.com
Message-ID: 
X-OriginalArrivalTime: 21 Aug 2009 10:12:23.0708 (UTC)
FILETIME=[E07225C0:01CA2247]
X-Virus-Checked: Checked



-Original Message-
From: beginners-h...@perl.org [mailto:beginners-h...@perl.org]
Sent: Friday, August 21, 2009 3:41 PM
To: Ajay Kumar
Subject: confirm subscribe to beginners@perl.org

Hi! This is the ezmlm program. I'm managing the beginners@perl.org mailing
list.

I'm working for my owner, who can be reached at beginners-ow...@perl.org.

To confirm that you would like

   aku...@securities.com

added to the beginners mailing list, please send an empty reply to this
address:


beginners-sc.1250849482.ipnnaiiimllkohongcig-akumar=securities@perl.org

Usually, this happens when you just hit the "reply" button.
If this does not work, simply copy the address and paste it into the "To:"
fie

Re: WELCOME to beginners@perl.org

[Dave Gray]

On 9/28/05, Ryan Frantz <[EMAIL PROTECTED]> wrote:
> Just for giggles, I'm gonna assume that you're using PPM (you gave
> nothing else to go on)...
>
> I've only installed this particular module using ActiveState's 'ppm'
> myself; it seems to have problems with the '::' in module names.  If ppm
> can't find what it believes the module name is, it will default to a
> search and probably return something like this:
>
> ppm> search spreadsheet::parseexcel
> Searching in Active Repositories
>   1. Spreadsheet-ParseExcel  [0.2603] Get information from Excel
> file
>   2. Spreadsheet-ParseExcel-Sim~   [1.02] A simple interface to Excel
> data
>   3. Spreadsheet-ParseExcel_XLH~   [0.02] Parse Excel Spreadsheets using
> xlhtml
>
> Use the 'install' command and substitute '-' for '::' like so:
>
> ppm> search Spreadsheet-ParseExcel-Simple

You can use the numbers instead of typing all that IIRC, so:

ppm> install 2

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: WELCOME to beginners@perl.org

[getmurali]

On Wednesday 28 September 2005 21:40, Chris Devers wrote:

download 
http://search.cpan.org/CPAN/authors/id/K/KW/KWITKNR/Spreadsheet-ParseExcel-0.2603.tar.gz

unzip: tar zxf Spreadsheet-ParseExcel-0.2603.tar.gz
cd Spreadsheet-ParseExcel-0.2603
perl Makefile.PL
make 
make install


you are done


murali
> On Wed, 28 Sep 2005 [EMAIL PROTECTED] wrote:
> > Any idea how to install Spreadsheet::ParseExcel?
>
> Yes.
>
> > I've downed loaded the required modules, but
> > it still does not seem to work.
>
> Bummer.
>
> > Are there clear instructions anywhere?
>
> Yes.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: WELCOME to beginners@perl.org

[Chris Devers]

On Wed, 28 Sep 2005, Rob Coops wrote:

> Even though the last email was funny I guess that is not what the person
> asking the questions was after.
>  On the other hand a little more detail than the statement: "It does not
> work" would be very helpful. Things people usualy want to know when trouble
> shooting is:
> 
>- OS
>- Which version did you download
>- Where did you download it from
>- What did you try to make it work
>- Some example code or something along these lines
>- What error message are you getting
> 
> That would be very helpful for people with actualy helpful awnsers

More broadly, read this, or at least skim it:

http://www.catb.org/~esr/faqs/smart-questions.html

The best way to get smart answers is to ask smart questions.

The best way to get help is to make it easy for others to give help.


-- 
Chris Devers

[EMAIL PROTECTED]
-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: WELCOME to beginners@perl.org

[Rob Coops]

Even though the last email was funny I guess that is not what the person
asking the questions was after.
 On the other hand a little more detail than the statement: "It does not
work" would be very helpful. Things people usualy want to know when trouble
shooting is:

   - OS
   - Which version did you download
   - Where did you download it from
   - What did you try to make it work
   - Some example code or something along these lines
   - What error message are you getting

That would be very helpful for people with actualy helpful awnsers

On 9/28/05, Chris Devers <[EMAIL PROTECTED]> wrote:

> On Wed, 28 Sep 2005 [EMAIL PROTECTED] wrote:
>
> > Any idea how to install Spreadsheet::ParseExcel?
>
> Yes.
>
> > I've downed loaded the required modules, but
> > it still does not seem to work.
>
> Bummer.
>
> > Are there clear instructions anywhere?
>
> Yes.
>
>
>
>
> --
> Chris Devers
>
> 9™wkö¦QC½lD"
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>  
>
>
>

RE: WELCOME to beginners@perl.org

[Ryan Frantz]

> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, September 28, 2005 12:08 PM
> To: beginners@perl.org
> Subject: Re: WELCOME to beginners@perl.org
> 
> Any idea how to install Spreadsheet::ParseExcel?

Just for giggles, I'm gonna assume that you're using PPM (you gave
nothing else to go on)...

I've only installed this particular module using ActiveState's 'ppm'
myself; it seems to have problems with the '::' in module names.  If ppm
can't find what it believes the module name is, it will default to a
search and probably return something like this:

ppm> search spreadsheet::parseexcel
Searching in Active Repositories
  1. Spreadsheet-ParseExcel  [0.2603] Get information from Excel
file
  2. Spreadsheet-ParseExcel-Sim~   [1.02] A simple interface to Excel
data
  3. Spreadsheet-ParseExcel_XLH~   [0.02] Parse Excel Spreadsheets using
xlhtml

Use the 'install' command and substitute '-' for '::' like so:

ppm> search Spreadsheet-ParseExcel-Simple

cpan (on *nix boxen) is normally a breeze to use too.

If this doesn't help, consult the documentation for ppm, cpan, or other
applicable mechanism through which you install your modules.

Most folks on this list are going to require that you provide a little
more information in order to help.

ry

> 
> I've downed loaded the required modules, but
> it still does not seem to work.
> Are there clear instructions anywhere?
> 
> tia,
> dk
> 
> 
> 
> 
> 
> -Original Message-
> From: [EMAIL PROTECTED]
> Sent: Sep 28, 2005 11:08 AM
> To: [EMAIL PROTECTED]
> Subject: WELCOME to beginners@perl.org
> 
> Hi! This is the ezmlm program. I'm managing the
> beginners@perl.org mailing list.
> 
> I'm working for my owner, who can be reached
> at [EMAIL PROTECTED]
> 
> Acknowledgment: I have added the address
> 
>[EMAIL PROTECTED]
> 
> to the beginners mailing list.
> 
> Welcome to [EMAIL PROTECTED]
> 
> Please save this message so that you know the address you are
> subscribed under, in case you later want to unsubscribe or change your
> subscription address.
> 
> To unsubscribe, send a message to:
> 
> <[EMAIL PROTECTED]>
> 
> 
> --- Administrative commands for the beginners list ---
> 
> I can handle administrative requests automatically. Please
> do not send them to the list address! Instead, send
> your message to the correct command address:
> 
> For help and a description of available commands, send a message to:
><[EMAIL PROTECTED]>
> 
> To subscribe to the list, send a message to:
><[EMAIL PROTECTED]>
> 
> To remove your address from the list, just send a message to
> the address in the ``List-Unsubscribe'' header of any list
> message. If you haven't changed addresses since subscribing,
> you can also send a message to:
><[EMAIL PROTECTED]>
> 
> or for the digest to:
><[EMAIL PROTECTED]>
> 
> For addition or removal of addresses, I'll send a confirmation
> message to that address. When you receive it, simply reply to it
> to complete the transaction.
> 
> If you need to get in touch with the human owner of this list,
> please send a message to:
> 
> <[EMAIL PROTECTED]>
> 
> Please include a FORWARDED list message with ALL HEADERS intact
> to make it easier to help you.
> 
> --- Enclosed is a copy of the request I received.
> 
> Return-Path: <[EMAIL PROTECTED]>
> Received: (qmail 20718 invoked from network); 28 Sep 2005 15:08:08
-
> Received: from x1a.develooper.com (HELO x1.develooper.com)
> (216.52.237.111)
>   by lists.develooper.com with SMTP; 28 Sep 2005 15:08:08 -
> Received: (qmail 6797 invoked by uid 225); 28 Sep 2005 15:08:08 -
> Delivered-To: beginners-sc.1127919936.lladepcfpodjjfjadnjp-
> [EMAIL PROTECTED]
> Received: (qmail 6792 invoked by alias); 28 Sep 2005 15:08:07 -
> X-Spam-Status: No, hits=0.6 required=8.0
>   tests=BAYES_00,DOMAIN_RATIO,NO_REAL_NAME
> X-Spam-Check-By: la.mx.develooper.com
> Received-SPF: pass (x1.develooper.com: local policy)
> Received: from pop05.mail.atl.earthlink.net (HELO
> pop05.mail.atl.earthlink.net) (207.69.200.58)
> by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Wed, 28 Sep
2005
> 08:08:04 -0700
> Received: from mswamui-bichon.atl.sa.earthlink.net ([209.86.224.26])
>   by pop05.mail.atl.earthlink.net with esmtp (Exim 3.36 #10)
>   id 1EKdXN-00022E-00
>   for beginners-sc.1127919936.lladepcfpodjjfjadnjp-
> [EMAIL PROTECTED]; Wed, 28 Sep 2005 11:08:01 -0400
> Message-ID: <[EMAIL PROTECTED]
> bichon.atl.sa.earthlink.ne

RE: WELCOME to beginners@perl.org

[Gomez, Juan]

 

Just something for to start looking for info on the module


http://search.cpan.org/~kwitknr/Spreadsheet-ParseExcel-0.2602/ParseExcel.pm

Armando Gomez Guajardo 
Process Engineer
Work Ph   956 547 6438 
Beeper956 768 4070

-Original Message-
From: Chris Devers [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, September 28, 2005 11:10 AM
To: [EMAIL PROTECTED]
Cc: Perl Beginners List
Subject: Re: WELCOME to beginners@perl.org

On Wed, 28 Sep 2005 [EMAIL PROTECTED] wrote:

> Any idea how to install Spreadsheet::ParseExcel?

Yes.
 
> I've downed loaded the required modules, but it still does not seem to 
> work.

Bummer.

> Are there clear instructions anywhere?

Yes.




--
Chris Devers

9(tm)wkö¦QC½lD"

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: WELCOME to beginners@perl.org

[Chris Devers]

On Wed, 28 Sep 2005 [EMAIL PROTECTED] wrote:

> Any idea how to install Spreadsheet::ParseExcel?

Yes.
 
> I've downed loaded the required modules, but 
> it still does not seem to work. 

Bummer.

> Are there clear instructions anywhere?

Yes.




-- 
Chris Devers

9™wkö¦QC½lD“
-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: WELCOME to beginners@perl.org

[dmitrik]

Any idea how to install Spreadsheet::ParseExcel?

I've downed loaded the required modules, but 
it still does not seem to work. 
Are there clear instructions anywhere?

tia,
dk





-Original Message-
From: [EMAIL PROTECTED]
Sent: Sep 28, 2005 11:08 AM
To: [EMAIL PROTECTED]
Subject: WELCOME to beginners@perl.org

Hi! This is the ezmlm program. I'm managing the
beginners@perl.org mailing list.

I'm working for my owner, who can be reached
at [EMAIL PROTECTED]

Acknowledgment: I have added the address

   [EMAIL PROTECTED]

to the beginners mailing list.

Welcome to [EMAIL PROTECTED]

Please save this message so that you know the address you are
subscribed under, in case you later want to unsubscribe or change your
subscription address.

To unsubscribe, send a message to:

<[EMAIL PROTECTED]>


--- Administrative commands for the beginners list ---

I can handle administrative requests automatically. Please
do not send them to the list address! Instead, send
your message to the correct command address:

For help and a description of available commands, send a message to:
   <[EMAIL PROTECTED]>

To subscribe to the list, send a message to:
   <[EMAIL PROTECTED]>

To remove your address from the list, just send a message to
the address in the ``List-Unsubscribe'' header of any list
message. If you haven't changed addresses since subscribing,
you can also send a message to:
   <[EMAIL PROTECTED]>

or for the digest to:
   <[EMAIL PROTECTED]>

For addition or removal of addresses, I'll send a confirmation
message to that address. When you receive it, simply reply to it
to complete the transaction.

If you need to get in touch with the human owner of this list,
please send a message to:

<[EMAIL PROTECTED]>

Please include a FORWARDED list message with ALL HEADERS intact
to make it easier to help you.

--- Enclosed is a copy of the request I received.

Return-Path: <[EMAIL PROTECTED]>
Received: (qmail 20718 invoked from network); 28 Sep 2005 15:08:08 -
Received: from x1a.develooper.com (HELO x1.develooper.com) (216.52.237.111)
  by lists.develooper.com with SMTP; 28 Sep 2005 15:08:08 -
Received: (qmail 6797 invoked by uid 225); 28 Sep 2005 15:08:08 -
Delivered-To: [EMAIL PROTECTED]
Received: (qmail 6792 invoked by alias); 28 Sep 2005 15:08:07 -
X-Spam-Status: No, hits=0.6 required=8.0
tests=BAYES_00,DOMAIN_RATIO,NO_REAL_NAME
X-Spam-Check-By: la.mx.develooper.com
Received-SPF: pass (x1.develooper.com: local policy)
Received: from pop05.mail.atl.earthlink.net (HELO pop05.mail.atl.earthlink.net) 
(207.69.200.58)
by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Wed, 28 Sep 2005 
08:08:04 -0700
Received: from mswamui-bichon.atl.sa.earthlink.net ([209.86.224.26])
by pop05.mail.atl.earthlink.net with esmtp (Exim 3.36 #10)
id 1EKdXN-00022E-00
for [EMAIL PROTECTED]; Wed, 28 Sep 2005 11:08:01 -0400
Message-ID: <[EMAIL PROTECTED]>
Date: Wed, 28 Sep 2005 11:08:00 -0400 (GMT-04:00)
From: [EMAIL PROTECTED]
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: Re: confirm subscribe to beginners@perl.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailer: Earthlink Zoo Mail 1.0





-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: WELCOME to beginners@perl.org

[Rob Dixon]

Hi Frank

See in-line.

"Frank Naude" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hi,
>
> Can somebody please help me to get this code fixed? Since I've moved the
> DB_File "tie" and "untie" functions to sub's, data is never written to the
> database. I've tried both call-by-refeence and call-by-value methods
without
> any luck.
>
> use strict;
> use DB_File;
> sub openDB {
>   my %db;
>   tie(%db,'DB_File',"db",O_CREAT|O_RDWR,0666);
>   return \%db;
> }

OK so far.

> sub closeDB {
># my $parm = shift;
>my ($parm) = @_;
>my %db = %$parm;
>untie(%db);
> }

%$parm may be tied (use 'if (tied %$parm)' to make sure), but %db isn't. All
you've done is copied the values from the possibly tied hash to the
definitely untied hash and then tried to untie an untied hash. (Whether the
module actually lets you copy the entire database into a local hash is
another matter.) How about:

sub closeDB {
my $parm = shift;
untie %$parm if tied %$parm;
}

> # Write data to DB...
> my $z1 = openDB;

OK

> my %x1 = %$z1;

Legal but, again, copies the entire hash value to a new untied hash.

> $x1{'A'} = "B"; # PROBLEM IS THIS DATA WILL NEVER BE WRITTEN TO THE DB
> $x1{'B'} = "C";
> $x1{'C'} = "D";

No. %x1, again, is untied - it is just a normal hash. Try:

$z1->{'A'} = "B"; # NO PROBLEM THIS DATA WILL ALWAYS BE WRITTEN TO
THE DB
$z1->{'B'} = "C";
$z1->{'C'} = "D";


> print "A = $x1{'A'}\n";
> closeDB(\%x1);
>

Well, I think you know what's wrong now. CloseDB doesn't stand a chance of
working. You're passing it a reference to plain, untied hash to untie; this
it tries to do by copying this untied hash to another untied hash (see
above) and untying /that/ :)

>
> # Read data back...
> my $z2 = openDB;
> my %x2 = %$z2;
> print "A = $x2{'A'}\n";
> closeDB(\%x2);
> # EOF
>

'Nuff said.

>
> Best regards.
>

Cheers Frank, and a happy New Year.


Rob




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

tied hash passing (was RE: WELCOME to beginners@perl.org)

[Jenda Krynicky]

From:   "Frank Naude" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Subject:RE: WELCOME to [EMAIL PROTECTED]
Date sent:  Tue, 31 Dec 2002 15:39:55 +0200

How's this related to the welcome message???

> Can somebody please help me to get this code fixed? Since I've moved
> the DB_File "tie" and "untie" functions to sub's, data is never
> written to the database. I've tried both call-by-refeence and
> call-by-value methods without any luck.
> 
> use strict;
> use DB_File;
> sub openDB {
>   my %db;
>   tie(%db,'DB_File',"db",O_CREAT|O_RDWR,0666);
>   return \%db;
> }
> sub closeDB {
># my $parm = shift;
>my ($parm) = @_;
>my %db = %$parm;
>untie(%db);
> }
> # Write data to DB...
> my $z1 = openDB;
> my %x1 = %$z1;

You've just created a new hash and copied all data from the tied hash 
to this new one. But the new one is NOT tied to anything!

You should keep using the reference:

my $z1 = openDB;
$z1->{'A'} = "B";

And the closeDB() has the same problem. It should look like this:

sub closeDB {
   # my $parm = shift;
   my ($parm) = @_;
   untie(%$parm);
}

HTH, Jenda
= [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =
When it comes to wine, women and song, wizards are allowed 
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

RE: WELCOME to beginners@perl.org

[Frank Naude]

Hi,

Can somebody please help me to get this code fixed? Since I've moved the
DB_File "tie" and "untie" functions to sub's, data is never written to the
database. I've tried both call-by-refeence and call-by-value methods without
any luck.

use strict;
use DB_File;
sub openDB {
  my %db;
  tie(%db,'DB_File',"db",O_CREAT|O_RDWR,0666);
  return \%db;
}
sub closeDB {
   # my $parm = shift;
   my ($parm) = @_;
   my %db = %$parm;
   untie(%db);
}
# Write data to DB...
my $z1 = openDB;
my %x1 = %$z1;
$x1{'A'} = "B"; # PROBLEM IS THIS DATA WILL NEVER BE WRITTEN TO THE DB
$x1{'B'} = "C";
$x1{'C'} = "D";
print "A = $x1{'A'}\n";
closeDB(\%x1);

# Read data back...
my $z2 = openDB;
my %x2 = %$z2;
print "A = $x2{'A'}\n";
closeDB(\%x2);
# EOF

Best regards.

Frank Naude


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]