What's in the safe?

After defining %_, the program continues at the end of last line:

$|++;$s->reval($_='eval join"",sort+keys%_')

• $|++ will help have a smooth animation with the \r you probably noticed in $_{t}.
• The string we reval in the Safe is the concatenated ASCIIbetically sorted list of %_ keys:

  $c='( +)';s/(key)|eval/$1?"value":""/eg;*y=[split/(\W+
  )/,$_{t}];($_=eval)=~y/\n//d;sub c{length};for(split$c
  ){print@y if(select($/,$,,$<,.1*rand)||($y+=$p+++&c)).
  ..(substr($y[&a],&p,1)=chr 97+(ord(substr$y[&a],&p,1)+
  c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}print"\n";
  s
  t
  udy
  

• In fact, it is a loooong line, since the keys are joined with empty strings.
• Note that study is the last function that has its first three letters in alphabetical order.
• This can be useful if, like me, you don't know what to do with the useless keys of %_.

Previous | Next

Copyright © 2000-2001, Philippe "BooK" Bruhat.