Neden ActivePerl kullanırken -i anahtarını bir yedek uzantı ile belirtmek zorundayım?

Question

Yerleşim düzenini alamıyorum ActivePerl altında çalışan bir linux uzantıları yedekleme uzantısıyla belirtmedikçe çalışmaz:

C:\> perl -i -ape "splice (@F, 2, 0, q(inserted text)); $_ = qq(@F\n);" file1.txt 
Can't do inplace edit without backup. 

-i.bak veya -i.orig ile aynı komut, bir işlem yapar ancak istenmeyen bir yedekleme dosyası oluşturur. süreç.

Bunun etrafında bir yolu var mı?

Answer 1

Bu bir Windows/MS-DOS sınırlamasıdır. perldiag göre:

Sen Silinen (ama yine de açık) Dosyadan okuma çalışırsanız karışır MS-DOS gibi bir sistem üzerinde konum. -i.bak, ya da bazılarını söylemelisin.

Perl'in -i uygulama buna açık tanıtıcı tutarken aynı adla dosyasını yeniden oluşturmak, ardından file1.txt silmek neden olur. Bu, silinmiş ve yeniden oluşturulmasına rağmen dosya1.txt dosyasını 'okumanıza' olanak tanır. Ne yazık ki, Windows/MS-DOS açık bir tanıtıcıya eklenmiş bir dosyayı silmenize izin vermez, bu nedenle bu mekanizma çalışmaz.

En iyi çekiminiz -i.bak kullanmak ve sonra da yedekleme dosyasını silmektir. Bu, en azından size biraz koruma sağlar - örneğin, sıfır olmayan bir çıkış koduyla perl çıkması durumunda yedeklemeyi seçemezsiniz. Şunlar gibi:

perl -i.bak -ape "splice...." file1.txt && del file1.bak 

Answer 2

Özyinelemeli örnekleme ve silme ile her ikisini de bulun. Ör. windows üzerinde mingw git bash.

$ find . -name "*.xml" -print0 | xargs -0 perl -p -i.bak -e 's#\s*<property name="blah" value="false" />\s*##g' 
$ find . -name "*.bak" -print0 | xargs -0 rm 

Boşlukları işlemek için find/xargs arasında ikili sonlandırılmış değerler geçti. Arama teriminde xml'yi önlemek için olağandışı s/öneki. Bu, başlamak için etrafında asılı herhangi bir .bak dosya olmadığını varsayar.