source: ocsinventory-agent/trunk/fuentes/tools/macosx/scripts/extract_version.pl @ 468

Last change on this file since 468 was 468, checked in by mabarracus, 4 years ago

Copyt trusty code

File size: 147 bytes
Line 
1#!/bin/perl -w
2
3my $FILE="./ocsinventory-agent";
4open(F,$FILE);
5while(<F>){
6        next unless $_ =~ /^our \$VERSION = '(.*)';$/;
7        print $1;
8}
9close(F);
Note: See TracBrowser for help on using the repository browser.