Use perl instead of sed when replacing IDs

libris · Nov 18, 2024 · ddafe45 · ddafe45
1 parent 4eaf8c8
commit ddafe45
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 )