Browsing the blog archives for April, 2011.

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

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

No Comments