鍒樻爧

摘要： The interesting thing about & is that you can generate new syntax with it, provided it's in the initial position: sub try (&@) {my($try,$catch) = @_;eval { &$try };if ($@) {local $_ = $@;&$catch;}} sub catch (&) { $_[0] }try {die "phooey";} catch {/phooey/ and print 阅读全文