stabs-filter.pl   [plain text]

#!/usr/bin/perl

use strict;
use Cwd;

my $dir = getcwd;
#my $xxx = $ARGV[1];

while(<>)
{
	# get stabs lines that match "NNNNNNN - xxx"
    if(m/^([0-9a-f]+) - ([0-9a-f]+) (.*?)$/)
    {
		# replace any occurances of cwd path with $CWD
		my $line = $3;
        if($line =~ m/(.*?)$dir(.*?)$/)
		{
			$line = $1 . "CWD" . $2;
		}
		
		printf "$line\n";
	}
}