มีวิธีที่จะทำให้ Perl - ฉันไม่ได้เชื่อมโยงการอุดตัน?

เพื่อนของฉันชี้ให้เห็นว่าถ้าคุณ:

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

เมื่อ "somefile" เป็น symlink จริง Perl จะทำตามที่เอกสารบอกว่าจะทำ:

ทำได้โดยเปลี่ยนชื่อไฟล์อินพุตเปิดไฟล์เอาต์พุตโดยใช้ชื่อดั้งเดิมและเลือกไฟล์เอาต์พุตนั้นเป็นค่าเริ่มต้นสำหรับคำสั่ง print () ส่วนขยายหากให้มาจะใช้ในการแก้ไขชื่อของไฟล์เก่าเพื่อทำสำเนาสำรอง [... ]

ซึ่งส่งผลให้ symlink ใหม่ "somefile.bak" ชี้ไปที่ไฟล์จริงที่ไม่เปลี่ยนแปลงและไฟล์ใหม่ "somefile" ที่มีการเปลี่ยนแปลงปกติพร้อมการเปลี่ยนแปลง

ในหลายกรณีการติดตาม symlink จะเป็นพฤติกรรมที่ต้องการ (แม้ว่าจะออกจากตำแหน่งที่ถูกต้องของไฟล์. bak ที่ไม่ชัดเจน) มีวิธีง่ายๆในการทำเช่นนี้นอกเหนือจากการทดสอบ symlink ใน wrapper และการจัดการกรณีอย่างเหมาะสมหรือไม่?

( sedทำสิ่งเดียวกันเพื่อสิ่งที่คุ้มค่า)

ฉันสงสัยว่าspongeอรรถประโยชน์อเนกประสงค์ขนาดเล็ก("ดูดข้อมูลมาตรฐานและเขียนลงไฟล์") จากmoreutilsจะเป็นประโยชน์ในกรณีนี้หรือไม่และจะเป็นไปตาม symlink

ผู้เขียนอธิบาย spongeเช่นนี้:

มันแก้ไขปัญหาของการแก้ไขไฟล์แบบแทนที่ด้วยเครื่องมือ Unix คือถ้าคุณเพิ่งเปลี่ยนเส้นทางไปยังไฟล์ที่คุณกำลังพยายามแก้ไขการเปลี่ยนเส้นทางจะมีผล (การปิดกั้นเนื้อหาของไฟล์) ก่อนคำสั่งแรกในไพพ์ไลน์ ได้รับรอบในการอ่านจากไฟล์ สวิตช์เช่นนี้sed -iและ perl -iหลีกเลี่ยงปัญหานี้ แต่ไม่ใช่ทุกคำสั่งที่คุณอาจต้องการใช้ในไปป์ไลน์มีตัวเลือกดังกล่าวและคุณไม่สามารถใช้วิธีการดังกล่าวกับไพพ์ไลน์หลายคำสั่งได้

ปกติฉันใช้ฟองน้ำเล็กน้อยเช่นนี้:

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

หากคุณทราบว่าsomefileเป็น symlink คุณสามารถระบุพา ธ เต็มไปยังไฟล์อย่างชัดเจนด้วยสิ่งต่อไปนี้:

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

ด้วยวิธีนี้ symlink ดั้งเดิมจะยังคงสภาพเดิมเนื่องจากตอนนี้การแทนที่ถูกทำโดยตรงกับไฟล์ต้นฉบับ

หากคุณกำลังจัดการกับไฟล์เดียวที่คำสั่งจะมีลักษณะดังนี้:

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

วิธีแก้ปัญหามีดังต่อไปนี้:

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

สิ่งนี้จัดการทั้ง symlink และไม่ใช่ symlinks

หากคุณกำลังจัดการกับไฟล์จำนวนมากโดยพลการคำสั่งจะมีลักษณะดังนี้:

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

วิธีแก้ปัญหามีดังต่อไปนี้:

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

สิ่งนี้จัดการทั้ง symlink และไม่ใช่ symlinks

Caveat readlinkไม่ใช่คำสั่งมาตรฐานดังนั้นการมีอยู่การมีข้อโต้แย้งและฟังก์ชันการทำงานนั้นแตกต่างกันไปตามระบบดังนั้นโปรดตรวจสอบเอกสารของคุณ ตัวอย่างเช่นการใช้งานบางอย่างมี-f(ซึ่งคุณสามารถใช้ที่นี่) แต่ไม่มี-eบางอย่าง busybox's readlink -fพฤติกรรมเช่น readlink -eGNU และระบบบางรายที่มีrealpathคำสั่งแทนreadlinkซึ่งโดยทั่วไปพฤติกรรมเช่น readlink -fGNU

ระวังด้วย GNU การลบreadlink -eลิงก์ที่ไม่สามารถแก้ไขไฟล์ที่มีอยู่จะถูกลบอย่างเงียบ ๆ