Perl One-liner de-compile?

[Larsen, Errin M HMMA/IT]

Hi everyone,

  Here is an example from the perlrun perldoc page:

    perl -ane 'print pop(@F), "\n";'

      is equivalent to
 
    while(<>) {
        @F = split(' ');
        print pop(@F), "\n";
    }


  My question is, can I get Perl to evaluate a command line (like above)
and print out the equivalent code that command line will produce?

  I hope that makes sense.  I thought I saw something similar to this on
this list before.

--Errin

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>