projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
[project @ 2000-04-17 11:39:23 by sewardj]
[ghc-hetmet.git]
/
ghc
/
interpreter
/
test
/
after
1
#!/usr/bin/perl
2
3
die "Usage: before <regexp>" unless $ARGV[0];
4
5
$start = $ARGV[0];
6
7
# Filter that trims lines before regexp
8
9
# skip the initial part
10
while (<STDIN>) {
11
last if /$start/;
12
}
13
# print the good bit
14
while (<STDIN>) {
15
print;
16
}
17
18
exit 0;