#!/opt/third-party-apps/perl-5.16/bin/perl
sub get_hier {
  my $node_file = $_[0];
  my $search = $_[1];
  my $path; my $subpath; my $gid;
  my @s; @ps; @hiera=();
  open(F,"$node_file");
  my @nodes = <F>; close F;
  foreach(@nodes) {
    chomp;
    @s = split("\\^");
    $gid = @s[0];
    if ( /$search/ ){ $path = @s[1]; }
  }
  @ps=split("~",$path);
  shift @ps;
  foreach (@ps) {
    $subpath = $subpath . "~$_";
    foreach(@nodes) {
      chomp;
      @s = split("\\^");
      if ( $subpath eq @s[1] ) {$s[0] =~ m/GID_(.+)_/; $gid = $1;}
    }
    push(@hiera,$gid);
  }
  return \@hiera;
}