Perl
The only programming language that actually has contests held to see who can make the most unreadable code.
#!/usr/local/bin/perl my @srcFiles=grep{!/\.bak$/i && !m{(^|/)CVS(/|$)} && -f $_} DfcD::GlobR("Src/*"); ... BEGIN { { $0=~/(.*\\)?(.*)\./; print STDERR "$2 version 0.0.2\n\n"; } for (@ARGV) { m!^(-/\?|-H|--help)$!i && &help() } 0==@ARGV and &help(); ... bless /@aCcbPth0, DfcXxx::Sort [keys %hDirs, sort{lc $a->name cmp lc $b->name or $a->name cmp $b->name} values %hNonDirs, # undef, ],$class; ...
By Jason Brandt