Có cách nào để tạo liên kết perl -i không clobber không?

Một người bạn của tôi chỉ ra rằng nếu bạn làm:

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

khi "somefile" thực sự là một symlink, perl thực hiện đúng những gì các tài liệu nói nó sẽ làm:

Nó thực hiện điều này bằng cách đổi tên tệp đầu vào, mở tệp đầu ra theo tên gốc và chọn tệp đầu ra đó làm mặc định cho các câu lệnh print (). Tiện ích mở rộng, nếu được cung cấp, được sử dụng để sửa đổi tên của tệp cũ để tạo bản sao lưu [...]

Điều này dẫn đến một symlink mới "somefile.bak" chỉ đến tệp thực không thay đổi và một tệp thông thường mới, đã thay đổi "somefile" với các thay đổi.

Trong nhiều trường hợp, theo liên kết tượng trưng sẽ là hành vi mong muốn (ngay cả khi nó để lại vị trí chính xác của tệp .bak mơ hồ). Có cách nào đơn giản để làm việc này ngoài việc kiểm tra các liên kết tượng trưng trong trình bao bọc và xử lý trường hợp một cách thích hợp không?

( sedlàm điều tương tự, cho những gì đáng giá.)

Tôi tự hỏi liệu spongetiện ích đa năng nhỏ ("ngâm đầu vào tiêu chuẩn và ghi vào tệp") từ moreutils sẽ hữu ích trong trường hợp này và liệu nó có theo liên kết tượng trưng không.

Tác giả mô tả sponge như thế này:

Nó giải quyết vấn đề chỉnh sửa tệp tại chỗ bằng các công cụ Unix, cụ thể là nếu bạn chỉ chuyển hướng đầu ra sang tệp bạn đang cố chỉnh sửa thì chuyển hướng có hiệu lực (ghi đè nội dung của tệp) trước lệnh đầu tiên trong đường ống được vòng để đọc từ các tập tin. Chuyển đổi thích sed -ivà perl -ilàm việc xung quanh điều này, nhưng không phải mọi lệnh bạn có thể muốn sử dụng trong một đường ống đều có tùy chọn như vậy và dù sao bạn cũng không thể sử dụng phương pháp đó với các đường ống nhiều lệnh.

Tôi thường sử dụng bọt biển một chút như thế này:

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

Nếu bạn biết thực tế đó somefilelà một liên kết tượng trưng, ​​bạn có thể cung cấp rõ ràng đường dẫn đầy đủ đến tệp với thông tin sau:

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

Bằng cách đó, symlink gốc vẫn còn nguyên do việc thay thế hiện được thực hiện trực tiếp với tệp gốc.

Nếu bạn đang xử lý một tệp duy nhất, lệnh sẽ như sau:

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

Giải pháp sau đó là:

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

Điều này xử lý cả symlink và không symlink.

Nếu bạn đang xử lý một số lượng lớn tệp tùy ý, lệnh sẽ có dạng như sau:

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

Giải pháp sau đó là:

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

Điều này xử lý cả symlink và không symlink.

Hãy cẩn thận readlink không phải là một lệnh tiêu chuẩn, do đó, sự hiện diện, đối số và chức năng của nó thay đổi theo hệ thống, vì vậy hãy chắc chắn kiểm tra tài liệu của bạn. Ví dụ, một số triển khai có -f(mà bạn cũng có thể sử dụng ở đây), nhưng không -e, một số thì không. busyboxHành readlink -fxử như GNU readlink -e. Và một số hệ thống có một realpathlệnh thay vì readlinkthường hoạt động như GNU readlink -f.

Xin lưu ý rằng với GNU readlink -e, các liên kết tượng trưng không thể giải quyết thành tệp hiện có sẽ bị xóa một cách âm thầm.