Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/env perl

# Reads files, looking for string 'our' followed by the variable $VERSION', then parses it out
# and sends the version number to STDOUT. The syntax in the file should
# be
# $VERSION = 'x.x'; with the 'our' in front
# where x.x is the version number recorded.

# Output is a tab separated list.
#   Column 1 - file's relative name
#   Column 2 - Version string (may be quote encapsulated)
#   Column 3 - Checksum as calculated by md5sum

# Version 0.2 20191106 RWR
# modified to also get the checksum of the file in the third column

use warnings;
use strict;

our $VERSION = '0.2';

my @out;
my @list = qx( grep -r 'our \$VERSION' * | grep -v '.svn' | grep -v 'old/' | grep -v '~' ); 
my $filename;
chomp @list;
foreach my $item ( @list ) {
   $item =~ s/:/\t/;
   $item =~ s/[;']//g;
   if ( $item =~ m/version->declare/ ) {
      $filename = (split( "\t", $item ) )[0];
      $item = `./$filename --version`;
      chomp $item;      
   } else {
      $item =~ s/our \$VERSION = //;
      $filename = (split( "\t", $item ))[0];
   }
   my $checksum = `md5sum $filename`;
   $checksum = ( split( /[\t\s]/, $checksum ))[0];
   push @out, $item . "\t" . $checksum;
}

print join( "\n", sort @out ) . "\n"