Re^2: How to print out package code ?

[Martin90]

open MODULE, "perldoc -m Session|" or die "Failed to open pipeline($!)
+";

    while (<MODULE>) {
    open(X,"> xxx_dump.txt")|| warn "Fail: ($!)";
    print X $_;

    }
close X;
close S;

Unfortunatelly prints out "13695" ;/ What is wrong ?

[choroba]

You are opening the file for each line, overwriting the previous output. Open it just once before entering the loop.

[Martin90]

Unfortunatelly, still doesn't work. Now, I am getting empty file ;/

my @tab;
    open MODULE, "perldoc -m ModuleX|" or die "Failed to open pipeline
+($!)";
        open(X,"> xxx_dump.txt")|| warn "Fail: ($!)";

    while (<MODULE>) {
    @tab = split;
    foreach $_ (@tab) {
            print X $_;

    }
        }
        close X;

    close MODULE;

What is wrong ? Maybe perldoc -m ModuleX doesn't work with used modules ?

[choroba]

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;