Simple external file line counter

[Guest_imported]

Hi everyone,
I need some help here.
I'm trying to create a simple script that performs two tasks.

1. counts the number of lines in a file.
2. displays the total count in a web page.

So, say pet.db contains;
cat
dog

I want to display;
Pets in database: 2

This is the script I,ve got so far;

#!/usr/local/bin/perl
# =====================
# ---------------------
# Record Counter V1.0
# ---------------------
# =====================

my $curr = 1;
open (CURR, "pet.db&quot or die $!;
$curr++ while (<CURR>);
close CURR;
print $curr;
exit;
}


I use this SSI, <!--#exec cgi=&quot;counter.cgi&quot;--> to try and display $curr in a web page.


This should work. But it doesn't !
Is there something I've missed?
Any help welcome.

Thank you.

 

[gerrygerry]

I think I know this works:

#!/usr/bin/perl

$dbfile = "pet.db";
$counter = 0;
open(DATA,"$dbfile") || die "Unable to open $dbfile";
@line=<DATA>;
close(DATA);
foreach $line(@lines)
 {
 $line =~ s/\n//g;
 $counter++;
 }
print &quot;Pets in database: $counter&quot;;
exit;

Probably not the best way.... but I'm sure this would work.

 

[sophisticate]

Here's one:

In your .shtml file, use the #include virtual directive instead of #exec.

<!--#include virtual=&quot;/cgi-bin/count.cgi&quot;-->

And count.cgi can be something as simple as:

#!/usr/bin/perl
print "Content-type: text/html\r\n\r\n";
open(FH,"pet.db");
print scalar @_ while @_ = <FH>;
close FH;

Be sure to have the Content-type line in there, otherwise you'll get a header error.

Hope this helps,

brendanc@icehouse.net

http://www.witheredpipedream.com

 

[gerrygerry]

I knew I'd find some way to screw it up!

sophisticate... I might be able to use this for a script I'm writing now. Is there an easy way to modify what you posted above to return a variable holding the number of lines?

 

[Guest_imported]

Thanks Sophisticate
That works well.

NoviceBloke