http://qs321.pair.com?node_id=302367


in reply to How's your Perl?

  1. perl -e"sub t{ \@_ }; $s='this'; *x = t $s, $s; $x[0] = 'that'; print join' ',@x;"
  2. perl -e"foo while1" or perl -e"{foo;redo}"
    1. perl -e"$foo = [{1=>1}, 'foo']; print \$foo->{1}, \$foo->[1]; "
    2. ?
  4. ?
  5. ?
  6. ?
  7. ?
  8. ?
    1. perl -e"$foo = \\1; print eval(q[$$foo]), eval(q[$$foo + 0])"
    2. ?
  9. ?
  10. ?
  11. perl -e"sub STDOUT{\*STDOUT}"
  12. Bonus perl -e"print \undef; sub foo{} goto +foo"

In Section Meditations