projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more check stuff
[spider.git]
/
perl
/
grepdbg
diff --git
a/perl/grepdbg
b/perl/grepdbg
index c44fc92b85c3a08f2565ef95e73f91a82886a1ca..250a898b5701aed2647c9e1de1822909cb48207e 100755
(executable)
--- a/
perl/grepdbg
+++ b/
perl/grepdbg
@@
-43,7
+43,7
@@
for my $arg (@ARGV) {
last;
}
}
last;
}
}
-die "usage:
dispdbg [[-nnn] ..] <string
>\n" unless $string;
+die "usage:
grepdbg [[-nnn] ..] <regexp
>\n" unless $string;
push @list, "0" unless @list;
for my $entry (@list) {
push @list, "0" unless @list;
for my $entry (@list) {
@@
-54,7
+54,7
@@
for my $entry (@list) {
while (<$fh>) {
my $line = $_;
chomp $line;
while (<$fh>) {
my $line = $_;
chomp $line;
- if ($line =~ m{
\Q
$string}io) {
+ if ($line =~ m{$string}io) {
my @line = split '\^', $line;
my $t = shift @line;
print atime($t), ' ', join('^', @line), "\n";
my @line = split '\^', $line;
my $t = shift @line;
print atime($t), ' ', join('^', @line), "\n";