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

Re^5: How to print out package code ?

by choroba (Bishop)
on Mar 18, 2013 at 21:50 UTC ( #1024159=note: print w/replies, xml ) Need Help??

in reply to Re^4: How to print out package code ?
in thread How to print out package code ?

Why did you introduce @tab and the inner loop? This works for me:
open MODULE, "perldoc -m ModuleX |" or die "Failed to open pipeline($! +)"; open(X,"> xxx_dump.txt")|| warn "Fail: ($!)"; while (<MODULE>) { print X $_; } close X; close S;
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^6: How to print out package code ?
by Martin90 (Sexton) on Mar 18, 2013 at 22:14 UTC
    Yes you are right, it works but not for my module which before is attached to script is decompiled by .so file. Have you got good solution for this case ?


      If it's a module found on CPAN, you can always download the package, untar it and brows the source to your hearts content.


      When your only tool is a hammer, all problems look like your thumb.

        No it is not from CPAN it's customized module which contain obfuscated code like "ufboisbfljsbf" and before is used in script first is decoded by .so files. I need to do changes in subroutines from this module. Any debugging fails at the moment when module is loading. Have you got good advice ? At least I want to get subroutines code from this module.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1024159]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2018-06-24 04:33 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.