perl/etc/WoodyMiaoLin/PbeBefore2015/2.1.make_psmc.makefile.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 open O, ">", "2.2.psmc.makefile";
   6
   7 my @a = ("PBE084", "PBE144", "PVI033");
   8 my @target;
   9 foreach my $i (1 .. 100) {
  10         foreach my $a (@a) {
  11                 push @target, "$a.round-$i.psmc";
  12                 print O "$a.round-$i.psmc:\n";
  13                 print O "\tpsmc -r 5 -p \"4+25*2+4+6\" -b $a.split.psmcfa >$a.round-$i.psmc\n"
  14         }
  15 }
  16 print O "targets: ", join(" ", @target), "\n";
  17 close O;