diff options
Diffstat (limited to 'src/misc')
| -rw-r--r-- | src/misc/README | 4 | ||||
| -rwxr-xr-x | src/misc/select.patch | 7 |
2 files changed, 3 insertions, 8 deletions
diff --git a/src/misc/README b/src/misc/README index 3932df9..0229869 100644 --- a/src/misc/README +++ b/src/misc/README @@ -17,7 +17,3 @@ mpp select.patch This is a Perl script to extract a selected patch from a gridfn output file. - -select.plane - This is a Perl script to extract one of the xy, xz, or yz - planes from an AH-shape data file. diff --git a/src/misc/select.patch b/src/misc/select.patch index b3457e5..ff09a7b 100755 --- a/src/misc/select.patch +++ b/src/misc/select.patch @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/local/bin/perl -w # $Header$ # @@ -8,8 +8,7 @@ # This filter prints that part of standard input starting with a # line of the form (eg) # ## +z patch -# (with any number >= 1 of # characters allowed) and continuing up to and -# including two consecutive newlines. +# and continuing up to and including two consecutive newlines. # use strict; @@ -22,7 +21,7 @@ my $in_selected_patch = 0; my $newline_count = 0; while (my $line = <STDIN>) { - if ($line =~ /^#+ \Q${patch_name}/o) + if ($line =~ /^### \Q${patch_name}/o) { $in_selected_patch = 1; } if ($line =~ /^\n/) { ++$newline_count; } |