Re^4: Read in a template file, populate using user input and and generate a new file

Thanks a lot! This works perfect. But is there any way to populate without changing the input template file? Thanks again!

Comment on Re^4: Read in a template file, populate using user input and and generate a new file

Replies are listed 'Best First'.
Re^5: Read in a template file, populate using user input and and generate a new file by poj (Abbot) on Feb 26, 2016 at 21:09 UTC
With some pattern matching perhaps #!perl use strict; # replace with Getopt::Long code as before my $vars = { seq1 =>'USER_INPUT.txt', seq2 => 'USER_INPT2.txt', ref => 'USER_INPUT_REF.txt', chr_list => 'USER_INPUT_CHR.txt', }; my $input = 'template.config'; open IN,'<',$input or die "Could not open $input : $!"; my $output = 'new_'.$input; open OUT,'>',$output or die "Could not open $output : $!"; while (<IN>){ chomp; # match selected lines # and append "value" if (/^ \$;(Seq\d\|Ref\|Chromo).\$; =/){ my $key = ($1 eq 'Chromo') ? 'chr_list' : lc $1; $_ .= '"'.$vars->{$key}.'"'; } print OUT $_."\n"; } close IN; close OUT; [download] poj	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: Read in a template file, populate using user input and and generate a new file
by poj (Abbot) on Feb 26, 2016 at 21:09 UTC

With some pattern matching perhaps

#!perl
use strict;

# replace with Getopt::Long code as before
my $vars = {
  seq1 =>'USER_INPUT.txt',
  seq2 => 'USER_INPT2.txt',
  ref => 'USER_INPUT_REF.txt',
  chr_list => 'USER_INPUT_CHR.txt',
};
 
my $input = 'template.config';
open IN,'<',$input or die "Could not open $input : $!";
my $output = 'new_'.$input;
open OUT,'>',$output or die "Could not open $output : $!";

while (<IN>){
  chomp;
  # match selected lines
  # and append "value"
  if (/^ *\$;(Seq\d|Ref|Chromo).*\$; =/){
    my $key = ($1 eq 'Chromo') ? 'chr_list' : lc $1;
    $_ .= '"'.$vars->{$key}.'"';
  }
  print OUT $_."\n";  
}
close IN;
close OUT;
[download]

[reply]
[d/l]