Merge pull request #1521 from libris/feature/replace-sed-with-perl

Use perl instead of sed when replacing IDs
libris · Nov 18, 2024 · d0708fa · d0708fa
2 parents 9177045 + ddafe45
commit d0708fa
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/librisxl-tools/scripts/move-lddb-from-backup.sh b/librisxl-tools/scripts/move-lddb-from-backup.sh
@@ -92,9 +92,9 @@ else
     }
 fi
 
-REPLACEID="s!\(\(\"@id\": \"\|\t\)https://libris\)\(-\w\+\)\?\(.kb.se/[bcdfghjklmnpqrstvwxz0-9]\+\)\>!\1-$DESTENV\4!g"
+REPLACEID="s/((@id\": \"|\t)https:\/\/libris)(?:-\w+)?(.kb.se\/[bcdfghjklmnpqrstvwxz0-9]+)\b/\1-$DESTENV\3/g"
 
 pg_restore -f - "${DUMPPATH}" |
     ( read; cat - |
-    sed "$REPLACEID" |
+    perl -pe "$REPLACEID" |
     handle_sql_dump )