hmm
how about
while(<FILE>){
if(m/[^'].*?(\&[^&]\S+)[^"']/){
print "line $i: " . $1 . " is a subroutine\n";
}
if(m/-\>(\S+)/){
print "line $i: " . $1 . " is a subroutine\n";
}
$i++;
}
it's not perfect, but it'll do the job...
-Akshay
Rizwan wrote:
>
> Hi!
> I am in need of a perl program that looks for sub-routine calls from a single
> sub-routine (lets say sub-routine 'one') and shows which sub-routines are
> called from that sub-routine (sub-routine 'one').
> Hence stating all the dependencies of sub-routine 'one'
>
> Rizwan
--
to unsubscribe: send mail to [EMAIL PROTECTED]
or <http://learn.perl.org/>
