#!/usr/bin/perl use strict; my @A1 = qw/0 0 070 010 033 036 105 165 007 142 099 085 145/; my @A2 = qw/0 0 014 064 001 114 150 152 081 106 068 045 097/; my @A3 = qw/0 0 164 100 160 008 057 112 131 040 086 090 006/; my @A4 = qw/0 0 122 012 163 035 071 015 037 069 139 158 121/; my @A5 = qw/0 0 025 149 077 111 117 147 021 043 120 082 056/; my @A6 = qw/0 0 153 030 156 039 052 027 125 140 092 123 067/; my @A7 = qw/0 0 018 161 168 137 132 073 049 023 143 078 063/; my @A8 = qw/0 0 167 011 172 044 130 102 115 089 083 058 016/; my @B1 = qw/0 0 155 148 022 004 136 144 116 066 093 061 050/; my @B2 = qw/0 0 003 028 176 157 091 104 133 124 055 034 079/; my @B3 = qw/0 0 162 135 062 038 138 087 072 026 029 119 175/; my @B4 = qw/0 0 170 173 126 009 019 107 141 084 051 046 076/; my @B5 = qw/0 0 013 169 031 151 134 128 094 075 042 059 113/; my @B6 = qw/0 0 166 174 024 032 101 048 080 103 110 054 088/; my @B7 = qw/0 0 095 002 159 017 154 109 129 096 108 060 053/; my @B8 = qw/0 0 005 020 041 171 146 074 065 127 098 047 118/; my @a; my @b; $a[0] = $A1[getRoll()]; $a[1] = $A2[getRoll()]; $a[2] = $A3[getRoll()]; $a[3] = $A4[getRoll()]; $a[4] = $A5[getRoll()]; $a[5] = $A6[getRoll()]; $a[6] = $A7[getRoll()]; $a[7] = $A8[getRoll()]; $b[0] = $B1[getRoll()]; $b[1] = $B2[getRoll()]; $b[2] = $B3[getRoll()]; $b[3] = $B4[getRoll()]; $b[4] = $B5[getRoll()]; $b[5] = $B6[getRoll()]; $b[6] = $B7[getRoll()]; $b[7] = $B8[getRoll()]; my $parta = "@a"; my $partb = "@b"; my $sequence = " $parta $parta $partb"; $sequence =~ s/ / cda/g; $sequence =~ s/^ //; $sequence = "$sequence "; $sequence =~ s/ /\.krn /g; my $output = `humcat cda000.krn $sequence\n`; print $output; exit(0); sub getRoll { 2 + int(rand(6)) + int(rand(6)); }