Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

B::Deparse question

by MrNobo1024 (Hermit)
on Feb 16, 2001 at 10:45 UTC ( #58799=perlquestion: print w/ replies, xml ) Need Help??
MrNobo1024 has asked for the wisdom of the Perl Monks concerning the following question:

Why does code containing
tr///;
make B::Deparse not work?

Comment on B::Deparse question
Download Code
Replies are listed 'Best First'.
Re: B::Deparse question
by MeowChow (Vicar) on Feb 16, 2001 at 10:53 UTC
    Why does code contain
    tr///;
    ? :-)

    update: Perhaps the reason is just that, to cause B::Deparse to not work. We now have a defense against those killjoy deobfuscator sorts who would arm themseleves with nothing but B::Deparse in the war against obfuscated code. And it's really quite stealthy too:

    y;;; y yyy y,,, tr,,, tr sss
    Well, you get the idea.
Re: B::Deparse question
by extremely (Priest) on Feb 16, 2001 at 11:33 UTC
    It's version .59? From the ToDo list at the beginning of the Deparse.PM file:
    # Todo: # - finish tr/// changes # - add option for even more parens (generalize \&foo change) # - {} around variables in strings ("${var}letters") # base/lex.t 25-27 # comp/term.t 11 # - left/right context # - recognize `use utf8', `use integer', etc # - treat top-level block specially for incremental output # - interpret in high bit chars in string as utf8 \x{...} (when?) # - copy comments (look at real text with $^P?) # - avoid semis in one-statement blocks # - associativity of &&=, ||=, ?: # - ',' => '=>' (auto-unquote?) # - break long lines ("\r" as discretionary break?) # - configurable syntax highlighting: ANSI color, HTML, TeX, etc. # - more style options: brace style, hex vs. octal, quotes, ... # - print big ints as hex/octal instead of decimal (heuristic?) # - handle `my $x if 0'? # - include values of variables (e.g. set in BEGIN) # - coordinate with Data::Dumper (both directions? see previous) # - version using op_next instead of op_first/sibling? # - avoid string copies (pass arrays, one big join?) # - auto-apply `-u'? # - while{} with one-statement continue => for(; XXX; XXX) {}? # - -uPackage:: descend recursively? # - here-docs? # - <DATA>?

    Your question is number one on the ToDo list. =) =)

    --
    $you = new YOU;
    honk() if $you->love(perl)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://58799]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2015-08-01 01:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (285 votes), past polls