Subversion Repositories camp_sysinfo_client_3

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
57 rodolico 1 
#! /usr/bin/env perl
26 rodolico 2 
 
57 rodolico 3 
use warnings;
4 
use strict;
26 rodolico 5 
 
57 rodolico 6 
my @out;
7 
my @list = qx( grep -r 'our \$VERSION' * | grep -v '.svn' | grep -v 'old/' | grep -v '~' );
8 
chomp @list;
9 
foreach my $item ( @list ) {
10 
   $item =~ s/:/\t/;
11 
   $item =~ s/[;']//g;
12 
   $item =~ s/our \$VERSION = //;
13 
   push @out, $item;
14 
}
15 
 
16 
print join( "\n", sort @out ) . "\n"
17