Perl yapmanın bir yolu var mı?

Bir arkadaşım şunu yapar:

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

"somefile" aslında bir sembolik bağlantı olduğunda, perl sadece dokümanların ne yapacağını söyler:

Bunu, giriş dosyasını yeniden adlandırarak, çıktı dosyasını orijinal adıyla açıp print () deyimleri için varsayılan olarak bu çıktı dosyasını seçerek yapar. Uzantı, sağlanmışsa, yedek kopya oluşturmak için eski dosyanın adını değiştirmek için kullanılır [...]

Bu da değişmeyen gerçek dosyayı işaret eden yeni bir simge "somefile.bak" ve değişikliklerle birlikte yeni, değiştirilmiş normal dosya "somefile" ile sonuçlanır.

Birçok durumda, sembolik bağlantıyı izlemek istenen davranış olacaktır (.bak dosyasının doğru konumunu belirsiz bıraksa bile). Bunu bir sarmalayıcıdaki sembolik bağları test etmekten ve kasayı uygun şekilde işlemekten başka basit bir yol var mı?

( sedaynı şeyi, değerinde olan için yapar.)

Ben küçük olup olmadığını merak spongegenel amaçlı bir sistemdir ( "bir dosyaya standart girdi ve yazma içinize") elde moreutils bu durumda yardımcı olacak ve bunun sembolik takip edip.

Yazar şöyle tarif eder sponge :

Dosyaları Unix araçlarıyla yerinde düzenleme sorununu giderir, yani çıktıyı düzenlemeye çalıştığınız dosyaya yeniden yönlendirirseniz, yönlendirmenin ardışık düzendeki ilk komuttan önce yürürlüğe girmesi (dosyanın içeriğini tıkama) dosyadan okumaya döner. Bunun gibi geçiş yapar sed -ive perl -ibunun etrafında çalışır, ancak bir boru hattında kullanmak isteyebileceğiniz her komutun böyle bir seçeneği yoktur ve bu yaklaşımı zaten çok komutlu boru hatları ile kullanamazsınız.

Normalde biraz sünger kullanıyorum:

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

somefileBir symlink olan bir gerçeği biliyorsanız , dosya için tam yolu aşağıdakilerle açıkça sağlayabilirsiniz:

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

Bu şekilde, değiştirme şimdi doğrudan orijinal dosyayla yapıldığından orijinal symlink bozulmadan kalır.

Tek bir dosyayla uğraşıyorsanız, komut aşağıdaki gibi görünecektir:

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

O zaman çözüm şudur:

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

Bu hem sembolik hem de sembolik olmayan bağları ele alır.

İsteğe bağlı olarak çok sayıda dosyayla uğraşıyorsanız, komut aşağıdaki gibi görünür:

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

O zaman çözüm şudur:

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

Bu hem sembolik hem de sembolik olmayan bağları ele alır.

Uyarı readlink standart bir komut değildir, bu yüzden varlığı, bağımsız değişkenleri ve işlevselliği sisteme göre değişir, bu nedenle belgelerinizi kontrol ettiğinizden emin olun. Örneğin, bazı uygulamalarda vardır -f(burada da kullanabilirsiniz) -e, bazıları da yoktur. busybox's readlink -fGNU gibi davranır readlink -e. Ve bazı sistemler realpathbunun yerine readlinkgenellikle GNU gibi davranan bir komuta sahiptir readlink -f.

GNU ile readlink -emevcut bir dosyaya çözümlenemeyen sembolik bağlantıların sessizce kaldırıldığını unutmayın.