81 lines
2.2 KiB
Perl
Executable File
81 lines
2.2 KiB
Perl
Executable File
#!/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:
|