Я не могу вспомнить полный код, но одна его часть остается записанной в моей памяти, как то, что я часами пытаюсь понять:
do{
$tmp = shift unless shift;
$tmp;
}while($tmp);
Сначала я не мог этого понять, это выглядит так бесполезно, потом я распечатал @_ для списка аргументов, серии чередующихся логических и имен функций, код использовался вместе с модулем обнаружения библиотеки, который изменил поведение, если функция была нарушена, но код был настолько плохо документирован и сделан из таких вещей, которые не имели смысла без полного понимания полного кода, который я бросил и переписал все это.
ОБНОВЛЕНИЕ от ДВК:
И чтобы кто-то не утверждал, что это потому, что Perl не читается, в отличие от кодера, который является мастером гольфа, а не хорошим разработчиком программного обеспечения, вот тот же код в несколько менее запутанной форме (действительно правильный код даже не имел бы чередующейся подпрограммы имена и логические значения в первую очередь:)
# This subroutine take a list of alternating true/false flags
# and subroutine names; and executes the named subroutines for which flag is true.
# I am also weird, otherwise I'd have simply have passed list of subroutines to execute :)
my @flags_and_sub_names_list = @_;
while ( @flags_and_sub_names_list ) {
my $flag = shift @flags_and_sub_names_list;
my $subName = shift @flags_and_sub_names_list;
next unless $flag && $subName;
&{ $subName }; # Call the named subroutine
}