model_techlib \
-tech_lib_file libfile.teclib \
-device_name 12x3X1V1 -variation 0.25

output_setup \
-device_file_name 12x3X1V1DEVFILEDONOTTOUCH \
-map_file_directory_name ./


processing_setup \
-statistics_conversion_map \
A1 B1 \
CC1 DD1 \
A2 B2 \
A3 B3 \
A4 Bl4 \
A5 B5 \
A6 B6\
A56  Z56

variation_input_db \
-type signsample \
-PHI_file ../12x3X1V1.PHI   \
-PHI_LIBRARY_LIST PHI_LIB.list

sampling -type ORTHOSAMPL

results_database \
-type PHI \
-print_sigma true

print_gmm -remove_non_convergence true \
           -merge_asymptoses true
print_gmm_sigma -total_sigma_limit 1.0


solve \
-samples all \
-type PHI

#solve \
#-samples all \
#-type PHI


##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

open(IFH,"<","testlib.tcl") || die "Cannot open input file","\n";

my $line ="";
my $cmd ="";
my @arrC = ();
while(<IFH>) {
  next if(/^#/g);
  next if(/^\n/g);
  s/^\s+//g;
  if(/\\\s*$/) {
    s/\\\s*//g;
    chomp;
    $line .= $_;
  } else {
    $line .= $_;
  }
}

#print $line;
my @arr = split(/\n/,$line);
my @test = ();
foreach (@arr) {
  if(/variation_input_db/) {
    s/variation_input_db\s*//g;
    @test = split(/-/,$_); 
  }
}

foreach (@test) {
  print $_,"\n";
}

##</code><code>##

neal@alnz1:~/JUNK/JUNK1$ ./test.pl

##</code><code>##


type signsample 
PHI_file ../12x3X1V1.PHI   
PHI_LIBRARY_LIST PHI_LIB.list
neal@alnz1:~/JUNK/JUNK1$