
http://en.wikipedia.org/wiki/Hexspeak
use strict;
open(HANDLE,”wordlist.txt”) || die “wrong path buddy”;
my @wordlist = <HANDLE>;
@wordlist = grep /^[A-F]+$/, @wordlist;
@wordlist = sort { length $b cmp length $a } @wordlist;
print @wordlist[0..30];
ACCEDED
DEFACED
EFFACED
Continue Reading »
Bu yazı toplamda 2419, bugün ise 0 kez görüntülenmiş
