Re: Meta-perl - sorting my perl subs with perl?

Maybe you can start with B::Xref and render the output as a report?

    perl -MO=Xref YourMod.pm
[download]

Update: Perhaps, I misunderstood... you seem to want to sort the source code, such that e.g. sub a_func comes before/above sub b_func?

Personally, I would rather group the subs by functionality and let the editor do the work localising the subs (e.g. Emacs Imenu, other editors have similar functionality).

But with an amount of 150 subs, there is a good chance they can be grouped in specialised (sub-)modules, reducing the set of subs to an amount that can be managed (read: edit, document, test) with less effort.

Comment on Re: Meta-perl - sorting my perl subs with perl? Select or Download Code

Replies are listed 'Best First'.
Re^2: Meta-perl - sorting my perl subs with perl? by mbethke (Hermit) on Jan 20, 2012 at 21:16 UTC
Personally, I would rather group the subs by functionality and let the editor do the work localising the subs (e.g. Emacs Imenu, other editors have similar functionality). +1 Or if it has to be alphabetical, what about just inserting them in this order? It's not like you write a new sub every couple of seconds. But with an amount of 150 subs, there is a good chance they can be grouped in specialised (sub-)modules, reducing the set of subs to an amount that can be managed (read: edit, document, test) with less effort. Double plus good! Plus you get the alphabetical sorting as ls' default ;)	[reply]
Re^2: Meta-perl - sorting my perl subs with perl? by Syndaryl (Initiate) on Jan 23, 2012 at 14:48 UTC
I'm already grouping subs by functionality. This is literally a cluster of 150 subs with related functionality - the rest of the program is elsewhere :/ To expand a little on how this particular project is merrily spiraling out of control: Project is text extraction from a print-ready format never meant to be used as a text source, parsing the natural-language text out of known tables to XML, and finally burping up reformatted text via FO. Client initially indicated they didn't have that many uniquely-presenting tables to rip out. Client provided samples (in PDF, not the production format) for our assessment that were consistent with this claim. We received samples in the production format and found a rather hairier situation. But nobody Upstairs is changing deadlines :/ Since the client apparently can't count, the "solution" is that they're now regularly sending us more samples, where we find more types of tables and have to shove more items onto the match-text-goto-handling-sub hash, even as we're trying to do everything else. The team IDing new sections and match regexes are batch-generating skeletons of the relevant parts of the code via a couple of algorithms, which I then get to put into my module and flesh out. The last thing anyone's really been concerned about is alphabetizing the "handle text in table format XYZ" subs. I don't think I can justify to my boss taking half an hour or so out to reorganize the ones we have just because it annoys me, and frankly that's more boring than I find it irritating. If I'm going to do it on my own time, I'd rather write script than cut and paste code. :)	[reply]
Re^3: Meta-perl - sorting my perl subs with perl? by Anonymous Monk on Jan 23, 2012 at 15:15 UTC
stick __END__ at the top of your file, then use `perl -MAutoSplit` -e `" autosplit( $ARGV[0], $ARGV[1], 0, 0 ) " lib/Some/File.pm out/dir/like/a/lib` This will generates one file for each function, then you can glob/sort/cat and reconstitute Some::File with subs in sorted order	[reply] [d/l]


Don't ask to ask, just ask
	PerlMonks