39 lines
1.0 KiB
Perl
39 lines
1.0 KiB
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
#use Shell;
|
|
|
|
my $i;
|
|
|
|
sub main{
|
|
for ($i=3;$i<7;$i++) {
|
|
my $pid = fork();
|
|
if (0 == $pid) {
|
|
my $n = $i + 1;
|
|
return `perl fpga_flow.pl -conf ./configs/K$i\_N$n\_22nm_new.conf -benchmark ./benchmarks/circuits.txt -rpt K$i\_N$n\_22nm_new_full.csv -N $n -K $i`;
|
|
}
|
|
}
|
|
#for ($i=3;$i<7;$i++) {
|
|
# my $pid = fork();
|
|
# if (0 == $pid) {
|
|
# my $n = $i + 1;
|
|
# return `perl fpga_flow.pl -conf ./configs/K$i\_N$n\_22nm.conf -benchmark ./benchmarks/circuits.txt -rpt K$i\_N$n\_22nm.csv -N $n -K $i`;
|
|
# }
|
|
#}
|
|
#for ($i=1;$i<7;$i++) {
|
|
# my $pid = fork();
|
|
# if (0 == $pid) {
|
|
# return `perl fpga_flow.pl -conf ./configs/K3M2_N$i\_22nm.conf -benchmark ./benchmarks/circuits.txt -rpt K3M2_N$i\_22nm.csv -N $i -K 3`;
|
|
# }
|
|
#}
|
|
#for ($i=1;$i<11;$i++) {
|
|
# my $pid = fork();
|
|
# if (0 == $pid) {
|
|
# return `perl fpga_flow.pl -conf ./configs/K6_N$i\_22nm.conf -benchmark ./benchmarks/circuits.txt -rpt K6_N$i\_22nm.csv -N $i -K 6`;
|
|
# }
|
|
#}
|
|
#wait(-1);
|
|
}
|
|
|
|
&main();
|
|
|