Czy istnieje sposób, aby perl -i nie zamazywał dowiązań symbolicznych?

Mój przyjaciel wskazuje, że jeśli to zrobisz:

perl -pi.bak -e 's/foo/bar/' somefile

kiedy „somefile” jest w rzeczywistości dowiązaniem symbolicznym, perl robi to, co mówią doktorzy:

Robi to poprzez zmianę nazwy pliku wejściowego, otwarcie pliku wyjściowego pod oryginalną nazwą i wybranie tego pliku wyjściowego jako domyślnego dla instrukcji print (). Rozszerzenie, jeśli jest dostarczone, służy do modyfikacji nazwy starego pliku w celu utworzenia kopii zapasowej [...]

W rezultacie powstaje nowe dowiązanie symboliczne „somefile.bak” wskazujące na niezmieniony plik rzeczywisty oraz nowy, zmieniony zwykły plik „somefile” ze zmianami.

W wielu przypadkach podążanie za dowiązaniem symbolicznym byłoby pożądanym zachowaniem (nawet jeśli pozostawia ono niejednoznaczną prawidłową lokalizację pliku .bak). Czy istnieje prosty sposób, aby to zrobić inaczej niż testowanie dowiązań symbolicznych w opakowaniu i odpowiednia obsługa sprawy?

( sedrobi to samo, za co jest tego warte.)

Zastanawiam się, czy małe spongenarzędzie ogólnego zastosowania („wchłanianie standardowych danych wejściowych i zapisywanie do pliku”) z moreutils będzie pomocne w tym przypadku i czy będzie podążało za dowiązaniem symbolicznym.

Autor opisuje sponge tak:

Rozwiązuje problem edycji plików w miejscu za pomocą narzędzi uniksowych, mianowicie jeśli przekierujesz dane wyjściowe do pliku, który próbujesz edytować, przekierowanie zacznie obowiązywać (usuwanie zawartości pliku) przed pierwszym poleceniem w potoku przechodzi do czytania z pliku. Przełączniki to sed -ilub perl -iomijają, ale nie każde polecenie, którego możesz chcieć użyć w potoku, ma taką opcję, a i tak nie możesz użyć tego podejścia w potokach z wieloma poleceniami.

Zwykle używam gąbki trochę tak:

sed '...' file | grep '...' | sponge file

Jeśli wiesz, że somefilejest to dowiązanie symboliczne, możesz jawnie podać pełną ścieżkę do pliku w następujący sposób:

perl -pi.bak -e 's/foo/bar/' $(readlink somefile)

W ten sposób oryginalne dowiązanie symboliczne pozostaje nienaruszone, ponieważ zastępowanie odbywa się teraz bezpośrednio z oryginalnym plikiem.

Jeśli masz do czynienia z jednym plikiem, komenda wyglądałaby następująco:

perl -i -pe'...' -- "$qfn"

Rozwiązanie jest następujące:

perl -i -pe'...' -- "$( readlink -e -- "$qfn" )"

To obsługuje zarówno dowiązania symboliczne, jak i nie-dowiązania symboliczne.

Jeśli masz do czynienia z dowolnie dużą liczbą plików, polecenie wyglądałoby następująco:

... | xargs -r perl -i -pe'...' --

Rozwiązanie jest następujące:

... | xargs -r readlink -ze -- | xargs -r0 perl -i -pe'...' --

To obsługuje zarówno dowiązania symboliczne, jak i nie-dowiązania symboliczne.

Zastrzeżenie readlink nie jest standardowym poleceniem, więc jego obecność, argumenty i funkcjonalność różnią się w zależności od systemu, więc sprawdź swoją dokumentację. Na przykład niektóre implementacje mają -f(których można również użyć tutaj), ale nie -eniektóre, żadne z nich. busybox„s readlink -fzachowuje się jak GNU readlink -e. Niektóre systemy mają realpathpolecenie, zamiast readlinkktórego ogólnie zachowuje się jak GNU readlink -f.

Uwaga: w GNU readlink -edowiązania symboliczne, których nie można rozpoznać w istniejącym pliku, są po cichu usuwane.