http://qs321.pair.com?node_id=242681


in reply to RFC: Pod::Remove

I can understand the feeling that Pod::Parser is overkill, but: 

-- 
        dakkar - Mobilis in mobile

Replies are listed 'Best First'.
Re: Re: RFC: Pod::Remove
by domm (Chaplain) on Mar 13, 2003 at 13:56 UTC
    * Why strings?

    Because for some reasons having to do with cpanstats I want to analyse the code of some CPAN modules. I'm not interested in the POD, so I want to remove it. And I do not want to mess around with files (especially when running some analysis on all of CPAN) just to remove POD.

    What I want is something like 

    my $podless=remove_pod($code)

    [download]
    so I can mung $podless.

    * What about DATA filehandles?

    I'm not sure what you mean by this.. 

    --
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}

    [download]
[reply]
[d/l]
[select]

      What I meant is: since you are removing everything after __DATA__, if the program had something besides POD in there, and accessed it via the DATA filehandle, it would no longer work.

      Reading your reply, anyway, I'm starting to believe you are not going to run those script.

      -- 
        dakkar - Mobilis in mobile
[reply]
        Oh, yes

        I know this, and, you're right, I won't run the code.

        If I choose to use my proposed module, I might add a parameter so users can specify if they want to drop stuff after __DATA__ or not... 

        --
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}

        [download]
[reply]
[d/l]

In Section Meditations