#!/usr/bin/perl
# Extract field/var from .pc files
$a = shift;
while(<>) {
 if (/^(\S+?)=(.*)/) {
  $n = $1;
  $v = $2;
  $v =~ s/\$\{(\S+?)\}/$var{$1}/eg;
  $var{$n} = $v;
  if ($n eq $a) { print $v; }
 }
 if (/^$a: (.*)/) {
  $v = $1;
  $v =~ s/\$\{(\S+?)\}/$var{$1}/eg;
  print $v;
 }
}
 
