freeswitch/support-d/utils/btgrep

#!/usr/bin/perl
# Copyright (c) 2007-2014, Anthony Minessale II
# All rights reserved.
# 
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 
# Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 
# Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 
# Neither the name of the original author; nor the names of any contributors
# may be used to endorse or promote products derived from this software
# without specific prior written permission.
# 
# 
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
# A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER
# OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
# 
# Contributors: 
# 
# btgrep - Search for regex in backtraces
#

$| = 0;
$/ = undef;

my $file = shift;
open I, $file or die;
my $i = <I>;
close I;

my @all = $i =~ /Thread \d.*?\n\n/smg;

foo:
foreach my $m (@all) {

  foreach (@ARGV) {
    my $arg;
    my $neg = 0;

    if (/^\-(.*)$/) {
      $arg = $1;
      $neg = 1;
    } else {
      $arg = $_;
    }

    if ($neg) {
      next foo if($m =~ /$arg/);
    } else {
      next foo unless($m =~ /$arg/);
    }
  }

  print "Match: $m";
}

# For Emacs:
# Local Variables:
# mode:perl
# indent-tabs-mode:t
# tab-width:4
# c-basic-offset:4
# End:
# For VIM:
# vim:set softtabstop=4 shiftwidth=4 tabstop=4 noet: