Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!pasteur!scam.Berkeley.EDU!grady
From: grady@scam.Berkeley.EDU (Steven Grady)
Newsgroups: comp.lang.perl
Subject: perl tags
Keywords: tags
Message-ID: <23052@pasteur.Berkeley.EDU>
Date: 15 Mar 90 00:44:05 GMT
Sender: news@pasteur.Berkeley.EDU
Reply-To: grady@postgres.berkeley.edu
Organization: Experimental Computing Facility, UC Berkeley
Lines: 30

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!"