source: ThirdParty/mpqc_open/src/bin/mpqc/validate/makeccain.pl.in@ dabe63

#!/usr/bin/env perl
#eval 'exec perl $0 $*'
#    if 0;

$libsc = "@sclibdir@/cca";
$libgeneric = "@CCA_CHEM_LIB@";

use Getopt::Long;

$scref="";
$dir=".";
$help=0;
GetOptions("scref=s" => \$scref,
           "dir=s" => \$dir,
           "help!" => \$help );

if( $scref eq "" ) {
  print "error: value required for --scref\n";
  exit(0);
}
$dir =~ s/\/^//;
$scref =~ s/\/^//;

if ($help) {
    print  "Usage: $ARGV[0] [options] [file1] [file2] ...\n";
    print  "Options:\n";
    print  "  --scref dir        path to ref directory\n";
    print  "  --dir dir          path to output dir\n";
    print  "  --help             print this help\n";
    exit 0;
}

foreach (@ARGV) {

  chomp;
  $full_input_file = $_;
  $full_input_file =~ m/([^\/]*)\/?$/;
  $input_file = $1;
  open INPUT,"<$full_input_file";
  open OUTPUT,">$dir/$input_file.in";

  while (<INPUT>) {
    $line = $_;
    $line =~ s/%LIBSC%/$libsc/;
    $line =~ s/%LIBGENERIC%/$libgeneric/;
    $line =~ s/%SCREF%/$scref/;
    print OUTPUT "$line";
  }

  close INPUT;
  close OUTPUT;
}