Re: [FWP] So, you think you know Perl?

[Simon Cozens <fwp@simon-cozens.org>]

On Thu, Mar 29, 2001 at 03:28:50PM -0500, Casey West wrote:
> Oh, wait.  The real code being executed is something close to this:

Why go for "close to"? Deparse is your friend. :)

 % perl -MO=Deparse -ple 'print q'

LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    print '}continue{print or die qq(-p destination: $!\\n)';
}

-e syntax OK

 % perl -MO=Deparse -ple 'print qq'

LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    print "}continue{print or die qq(-p destination: $!\n)";
}

-e syntax OK

-- 
I would imagine most of the readers of this group would support abortion
as long as fifty or sixty years after conception for certain individuals
    - Michael Stevens

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe