D
darkmwar
Guest
I am writing this perl program and i want the program to give me a sort of serial key when i type in a name( any name), but it doesn't work! please help me. the code is:
#! usr/bin/perl -w
print "Enter the name of the user.";
$name = <STDIN>;
%letters = split /\*+/,$name;
$n == 0;
foreach (%letters) {
if (%letters = "a") {
$position[$n] = "1"};
if (%letters = "b") {
$position[$n] = "2"};
if (%letters = "c") {
$position[$n] = "3"};
if (%letters = "d") {
$position[$n] = "4"};
if (%letters = "e") {
$position[$n] = "5"};
if (%letters = "f") {
$position[$n] = "6"};
if (%letters = "g") {
$position[$n] = "7"};
if (%letters = "h") {
$position[$n] = "8"};
if (%letters = "i") {
$position[$n] = "9"};
if (%letters = "j") {
$position[$n] = "0"};
if (%letters = "k") {
$position[$n] = "1"};
if (%letters = "l") {
$position[$n] = "2"};
if (%letters = "m") {
$position[$n] = "3"};
if (%letters = "n") {
$position[$n] = "4"};
if (%letters = "o") {
$position[$n] = "5"};
if (%letters = "p") {
$position[$n] = "6"};
if (%letters = "q"){
$position[$n] = "7"};
if (%letters = "r") {
$position[$n] = "8"};
if (%letters = "s") {
$position[$n] = "9"};
if (%letters = "t") {
$position[$n] = "0"};
if (%letters = "u") {
$position[$n] = "1"};
if (%letters = "v") {
$position[$n] = "2"};
if (%letters = "w") {
$position[$n] = "3"};
if (%letters = "x") {
$position[$n] = "4"};
if (%letters = "y") {
$position[$n] = "5"};
if (%letters = "z") {
$position[$n] = "6"};
if (%letters = "/s") {
$position[$n] = \s};
while (1) {
$n += 1};};
if ($n == 0) {
print "You didn't enter a name.";
}elsif ($n == 1) {
print "The serial number is:$position[0]$position[1]";
}elsif ($n == 2) {
print "The serial number is:$position[0]$position[1]$position[2]";
}elsif ($n == 3) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]";
}elsif ($n == 4) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]";
}elsif ($n == 5) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]";
}elsif ($n == 6) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]";
}elsif ($n == 7) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]";
}elsif ($n == 8) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]";
}elsif ($n == 9) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]";
}elsif ($n == 10) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]";
}elsif ($n == 11) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]";
}elsif ($n == 12) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]";
}elsif ($n == 13) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]";
}elsif ($n == 14) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]$position[14]";
}elsif ($n == 15) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]$position[14]$position[15]";
}elsif ($n == 16) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]$position[14]$position[15]$position[16]";
}elsif ($n == 17) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]$position[14]$position[15]$position[16]$position[17]";
}}}
#! usr/bin/perl -w
print "Enter the name of the user.";
$name = <STDIN>;
%letters = split /\*+/,$name;
$n == 0;
foreach (%letters) {
if (%letters = "a") {
$position[$n] = "1"};
if (%letters = "b") {
$position[$n] = "2"};
if (%letters = "c") {
$position[$n] = "3"};
if (%letters = "d") {
$position[$n] = "4"};
if (%letters = "e") {
$position[$n] = "5"};
if (%letters = "f") {
$position[$n] = "6"};
if (%letters = "g") {
$position[$n] = "7"};
if (%letters = "h") {
$position[$n] = "8"};
if (%letters = "i") {
$position[$n] = "9"};
if (%letters = "j") {
$position[$n] = "0"};
if (%letters = "k") {
$position[$n] = "1"};
if (%letters = "l") {
$position[$n] = "2"};
if (%letters = "m") {
$position[$n] = "3"};
if (%letters = "n") {
$position[$n] = "4"};
if (%letters = "o") {
$position[$n] = "5"};
if (%letters = "p") {
$position[$n] = "6"};
if (%letters = "q"){
$position[$n] = "7"};
if (%letters = "r") {
$position[$n] = "8"};
if (%letters = "s") {
$position[$n] = "9"};
if (%letters = "t") {
$position[$n] = "0"};
if (%letters = "u") {
$position[$n] = "1"};
if (%letters = "v") {
$position[$n] = "2"};
if (%letters = "w") {
$position[$n] = "3"};
if (%letters = "x") {
$position[$n] = "4"};
if (%letters = "y") {
$position[$n] = "5"};
if (%letters = "z") {
$position[$n] = "6"};
if (%letters = "/s") {
$position[$n] = \s};
while (1) {
$n += 1};};
if ($n == 0) {
print "You didn't enter a name.";
}elsif ($n == 1) {
print "The serial number is:$position[0]$position[1]";
}elsif ($n == 2) {
print "The serial number is:$position[0]$position[1]$position[2]";
}elsif ($n == 3) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]";
}elsif ($n == 4) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]";
}elsif ($n == 5) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]";
}elsif ($n == 6) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]";
}elsif ($n == 7) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]";
}elsif ($n == 8) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]";
}elsif ($n == 9) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]";
}elsif ($n == 10) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]";
}elsif ($n == 11) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]";
}elsif ($n == 12) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]";
}elsif ($n == 13) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]";
}elsif ($n == 14) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]$position[14]";
}elsif ($n == 15) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]$position[14]$position[15]";
}elsif ($n == 16) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]$position[14]$position[15]$position[16]";
}elsif ($n == 17) {
print "The serial number is:$position[0]$position[1]$position[2]$position[3]$position[4]$position[5]$position[6]$position[7]$position[8]$position[9]$position[10]$position[11]$position[12]$position[13]$position[14]$position[15]$position[16]$position[17]";
}}}