Re: First approximation of source line count for potato

[Steve Lamb <morpheus@rpglink.com>]

Tuesday, May 02, 2000, 3:00:46 PM, Joey wrote:
>> So that 8.0 is 8,000, not 8.  Besides, how many scripts are floating around in
>> perl that don't end in .pl?  A /lot/.  File really is needed to be used.

> I would actually trust extention more than file here. Lots of perl
> modules, and even some perl scripts, do not start with a #!/usr/bin/perl
> shebang, and that's the only chance file has to detect perl code.

    Speaking of perl...

foreach $file (@files){
  if ($file =~ m/^.*\.(\w+)$/i){
    if ($extensions_short{$1}){
      count_some_code_boyeee($1);
    }
    else{
      $file_sez = `file $file`;
      if ($file_sez =~ m/^$file: (\w+)/i){
        if ($extensions_long{$1}){
           count_some_code_boyeee($extensions_long{$1});
        }
      }
    }
  }
}

    IE, we're not limited to file's internal logic.  We can short circuit a
little bit in the script that is running it.  The contents of
%extensions_short and $extensions_long will be left as an exercise to the
reader and no guarentee this code would remotely work since I just flung it
out there in the middle of BSing with a cow-orker.

-- 
         Steve C. Lamb         | I'm your priest, I'm your shrink, I'm your
         ICQ: 5107343          | main connection to the switchboard of souls.
-------------------------------+---------------------------------------------