melo / scripts

My personal script stash

This URL has Read+Write access

scripts / bin / x-perl-trace
100755 18 lines (14 sloc) 0.401 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl -w
 
use strict;
use warnings;
 
LINE:
while (my $line = <>) {
	print $line;
 
	if ($line =~ m/^\s*package\s*/) {
	  print qq{our \$trace_frame_counter = 0; }
	}
	elsif (my ($sub) = $line =~ m/^sub\s+(\S+)/) {
		print qq{  local \$trace_frame_counter; \$trace_frame_counter++;    ### TRACING\n};
		print qq{  print STDERR "TRACE [\$trace_frame_counter] ($sub)\\n";  ### TRACING\n};
	}
}