Re: Perl LOC counter?

Sloccount works for many languages including perl.

The stupider the astronaut, the easier it is to win the trip to Vega - A. Tucket

Comment on Re: Perl LOC counter?

Replies are listed 'Best First'.
Re: Re: Perl LOC counter? by samtregar (Abbot) on May 15, 2003 at 17:35 UTC
Thanks, that looks like the answer. However, I had to fix a bug in sloccount 2.22 before it would actually skip POD. I'll send it to the maintainer, but here it is in case anyone needs it too: `--- ../sloccount-2.22/perl_count 2002-01-02 12:21:08.000000000 +-0500 +++ perl_count 2003-05-15 13:33:45.000000000 -0400 @@ -58,7 +58,8 @@ open (FILE, $file); while (<FILE>) { s/#.//; # Delete leading comments. - if (m/^\s$heredocument/) {$heredocument = ""; # finished here do +c. + if ($heredocument and m/^\s$heredocument/) { + $heredocument = ""; # finished here doc. } elsif (m/<<\s["']?([A-Za-z0-9_-]+)["']?[;,]\s*$/) { # Beginning of a here document. $heredocument = $1;` [download] -sam	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Perl LOC counter?
by samtregar (Abbot) on May 15, 2003 at 17:35 UTC

--- ../sloccount-2.22/perl_count        2002-01-02 12:21:08.000000000 
+-0500
+++ perl_count  2003-05-15 13:33:45.000000000 -0400
@@ -58,7 +58,8 @@
   open (FILE, $file);
   while (<FILE>) {
     s/#.*//;  # Delete leading comments.
-    if (m/^\s*$heredocument/) {$heredocument = ""; # finished here do
+c.
+    if ($heredocument and m/^\s*$heredocument/) {
+      $heredocument = ""; # finished here doc.
     } elsif (m/<<\s*["']?([A-Za-z0-9_-]+)["']?[;,]\s*$/) {
       # Beginning of a here document.
       $heredocument = $1;
[download]

-sam

[reply]
[d/l]