Search Results

here's the code with some comments to try to explain...i hope it helps..



$str=shift @ARGV;
while(<>){
# match function name and save name and line to display later in
# case...

try this version


$str=shift @ARGV;
while(<>){
if(!$sw && /(.+\(.*\))/){
$func_name=$1;
$func_start=$.;
$sw=1;
...

try this

- put this code in a file called script.pl or whatever you like:

$str=shift @ARGV;
while(<>){
$c++ if $sw && /\{/;
$c-- if $sw && /\}/;
if($sw && $c==0){
...