Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Re: I need to create a simple record counter for DBman

Jul 26, 2001, 10:28 AM
sponge
Veteran (1936 posts)
sponge's avatar
Jul 26, 2001, 10:28 AM
Views: 5374
Shortcut
Quote Reply
Re: I need to create a simple record counter for DBman In reply to
Code:
my $curr = 1;
my $old = 1;
open (CURR, "default.db") or die $!;
$curr++ while (<CURR>);
close CURR;
open (OLD, "olddefault.db") or die $!;
$old++ while (<OLD>);
close OLD;
my $sold = $curr - $old;
Of course you should really do some field checking instead of relying on the number of records.

Happy coding,

--Drew
http://www.camelsoup.com
ftp://ftp.camelsoup.com
Subject Author Views Date
Thread I need to create a simple record counter for DBman Dezire 5459 Jul 26, 2001, 10:14 AM
Post Re: I need to create a simple record counter for DBman 		Paul 5347 Jul 26, 2001, 10:19 AM
Thread Re: I need to create a simple record counter for DBman 		sponge 5374 Jul 26, 2001, 10:28 AM
Thread Re: I need to create a simple record counter for DBman 		Dezire 5370 Jul 26, 2001, 1:26 PM
Thread Re: I need to create a simple record counter for DBman 		Paul 5312 Jul 26, 2001, 1:31 PM
Thread Re: I need to create a simple record counter for DBman 		Dezire 5319 Jul 26, 2001, 2:45 PM
Thread Re: I need to create a simple record counter for DBman 		Paul 5361 Jul 26, 2001, 2:51 PM
Thread Re: I need to create a simple record counter for DBman 		Dezire 5246 Aug 1, 2001, 5:33 PM
Thread Re: I need to create a simple record counter for DBman 		Paul 5237 Aug 1, 2001, 5:41 PM
Post Re: I need to create a simple record counter for DBman 		Dezire 5199 Aug 2, 2001, 1:32 AM