many thanks to you. this helped me really a lot.
now the lines look like this:
:player:-666:0:1149:13:ZyanKLee
:player:30:23:1139:4:C/B?B=C/B?B=C/B?B=C/B?B=C/B?B=10C/B?B=
:player:28:30:1133:12:^4d^1r^0@^1c^4o^7
first and last lines are (and where) easy - last one is dr@co with color-codes. but what about the playername in the middle line?
"C/B?B=C/B?B=C/B?B=C/B?B=C/B?B=10C/B?B="
perhaps my code is not optimal:
- Code: Select all
#!/usr/bin/perl
$string=':player:-666:0:1149:13:ZyanKLee
:player:30:23:1139:4:��� ��
�:player:28:30:1133:12:^4d^1r^0@^1c^4o^7';
@string = split ":", $string;
foreach $str (@string) {
chomp $str;
@array=split / */, $str;
@chararray = ( ' ', '#', '#', '#', '#', '.', '#', '#','#', 9, 10, '#', ' ', 13, '.', '.','[', ']', '0', '1', '2', '3', '4', '5','6', '7', '8', '9', '.', '<', '=', '>',' ', '!', '"', '#', '$', '%', '&', '\'','(', ')', '*', '+', ',', '-', '.', '/','0', '1', '2', '3', '4', '5', '6', '7','8', '9', ':', ';', '<', '=', '>', '?','@', 'A', 'B', 'C', 'D', 'E', 'F', 'G','H', 'I', 'J', 'K', 'L', 'M', 'N', 'O','P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W','X', 'Y', 'Z', '[', '\\', ']', '^', '_','`', 'a', 'b', 'c', 'd', 'e', 'f', 'g','h', 'i', 'j', 'k', 'l', 'm', 'n', 'o','p', 'q', 'r', 's', 't', 'u', 'v', 'w','x', 'y', 'z', '{', '|', '}', '~', '<','<', '=', '>', '#', '#', '.', '#', '#','#', '#', ' ', '#', ' ', '>', '.', '.','[', ']', '0', '1', '2', '3', '4', '5','6', '7', '8', '9', '.', '<', '=', '>',' ', '!', '"', '#', '$', '%', '&', '\'','(', ')', '*', '+', ',', '-', '.', '/','0', '1', '2', '3', '4', '5', '6', '7','8', '9', ':', ';', '<', '=', '>', '?','@', 'A', 'B', 'C', 'D', 'E', 'F', 'G','H', 'I', 'J', 'K', 'L', 'M', 'N', 'O','P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W','X', 'Y', 'Z', '[', '\\', ']', '^', '_','`', 'a', 'b', 'c', 'd', 'e', 'f', 'g','h', 'i', 'j', 'k', 'l', 'm', 'n', 'o','p', 'q', 'r', 's', 't', 'u', 'v', 'w','x', 'y', 'z', '{', '|', '}', '~', '<' );
foreach $char (@array) {
$ordchar = ord $char;
print $chararray[$ordchar];
}
print "\n";
}