hexspeak

Açık Kaynak, Programlama, ytulinux

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
ACCEDE
BEADED
BEDDED
DABBED
DECADE
DEFACE
EFFACE
FACADE
0xACEOFDECADE5 :)
/^[A-FOLZS]+$/
ACCE55ED
ACCE55E5
ACCO1ADE
A55E55ED
A55E55E55
BA11ADE5
BA5EBA11
BA5ELE55
BEDA221E
….

Bu yazı toplamda 2361, bugün ise 0 kez görüntülenmiş

No Comments