Question

I have a file that looks like the following:

app.version.code=1
app.version.major=1
app.version.minor=0
app.version.buildnumber=0

I want to run a Perl script that will print out <app.version.major>.<app.version.minor>.<app.version.buildnumber>. In this case it would print out 1.0.0. I’m very very rusty with Perl right now and am having trouble creating a regex and script to give me this. Any ideas?

Answer 1

cat > ver.txt
app.version.code=1
app.version.major=1
app.version.minor=0
app.version.buildnumber=0
^d

cat> ver.pl
#!/usr/bin/perl -w

use strict;
use warnings;

my ($ma,$mi,$bi)=(0,0,0);
while(<>){ 
  if(/^app\.version\.(.*)$/) { 
    if( $1 =~ /^major=(\d+)$/ ){$ma=$1}
    elsif( $1 =~ /minor=(\d+)$/ ){$mi=$1}
    elsif( $1 =~ /buildnumber=(\d+)$/ ) {$bi=$1}
  }
} 

print "$ma.$mi.$bi\n";
^d

./ver.pl < ver.txt 
1.0.0