Subversion Repositories instruction_list_pipelined_processor_with_peripherals

use strict;
use warnings;
 
print "Enter the Number of Rungs :\n";
my $rung_num = <>;
chomp($rung_num);
 
my (@inp_array, @out_array, @inst_array);
@inp_array = ('I0', 'I1', 'I2', 'I3', 'I4', 'I5', 'I6');
@out_array = ('O0', 'O1', 'O2', 'O3', 'O4', 'O5', 'O6');
@inst_array = ('LD', 'ST', 'AND', 'OR', 'N');
 
#Loop for Creating Instructions in a rung
open my $file_out, ">", "PLC_instruction.txt";
 
for (my $i = 1; $i <= $rung_num ; $i++)
{
my $instr_num = int(rand(10)) + 1;
 
  for (my $j = 1; $j <= $instr_num; $j++)
  {
  #print {$file_out} $i,".",$j, " ";
    if ($j == 1)
    {
    print {$file_out} $inst_array[0], " ";
    print {$file_out} $inp_array[int(rand(6))], "\n";
    }
	elsif ($j == $rung_num)
	{
	print {$file_out} $inst_array[1], " ";
    print {$file_out} $out_array[int(rand(6))], "\n";
	}
	else
	{
	print {$file_out} $inst_array[int(rand(3))+1], " ";
    print {$file_out} $inp_array[int(rand(6))], "\n";
	}
  }	
print {$file_out} "ENDOFRUNG", "\n";
#print {$file_out} "\n";
}
close($file_out);