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;

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

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 ?
[reply]

      Martin90:

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

      ...roboticus

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

[reply]
        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.
[reply]

In Section Seekers of Perl Wisdom