[comp.lang.perl] Perl tags

grady@scam.Berkeley.EDU (Steven Grady) (03/15/90)

Here's a (vi) tags program for perl a friend of mine
(kjpires@ic.berkeley.edu) wrote.  You might find it
useful.  

usage: ptags *.pl

#!/usr/local/bin/perl

open(OUTPUT, "| sort > tags");

while (<>) {
	if (/\bsub\s+(\S+)/) {
		$func = $1;
		chop;
		s,[\\\[\]/.*],\\$&,g;

		print OUTPUT "$func\t", $ARGV, "\t/^$_\$/\n";

	}
}

--
	Steven
	grady@postgres.berkeley.edu
	...!ucbvax!grady

"I think all right-thinking people in this country are sick and tired of
being told that ordinary, decent people are fed up in this country with being
sick and tired.  I'm certainly not!  But I'm sick and tired of being told
that I am!"

worley@compass.com (Dale Worley) (04/18/91)

I've seen a number of Perl tags-file generators now.  Can any of them
be used with the Emacs tags facility on large software systems?

Thanks,

Dale

Dale Worley		Compass, Inc.			worley@compass.com
--
Diary of a Thought Criminal...