tams-ellipsoid.awk: use more rubust parsing of sample id - ebeltoft-ams - AMS r… | |
git clone git://src.adamsgaard.dk/ebeltoft-ams | |
Log | |
Files | |
Refs | |
--- | |
commit 33b1357c61551014b65127eba88a5b102a4e14cc | |
parent 2de749e6f5d5f3154e8e1e28453c91145d608556 | |
Author: Anders Damsgaard <[email protected]> | |
Date: Fri, 24 Jun 2022 12:40:15 +0200 | |
ams-ellipsoid.awk: use more rubust parsing of sample id | |
Diffstat: | |
M ams-ellipsoid.awk | 6 +++--- | |
1 file changed, 3 insertions(+), 3 deletions(-) | |
--- | |
diff --git a/ams-ellipsoid.awk b/ams-ellipsoid.awk | |
t@@ -6,9 +6,9 @@ BEGIN { | |
printf "No.\tTrend\tPlunge\n" | |
} | |
-/_[A-z0-9]+ +/ { | |
- if (match($0, /_[A-z0-9]+ /)) | |
- id = substr($0, RSTART + 1, RLENGTH - 2) | |
+/ANISOTROPY OF SUSCEPTIBILITY/ { | |
+ if (match($1, /[A-z0-9\-_]+/)) | |
+ id = substr($1, RSTART, RLENGTH) | |
} | |
/^Specimen/ { |