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;