Boş satır içeren bir belgem var (\ n \ n). Bunlar perl ile normal bir ifadeyle nasıl yapabilirim? Aşağıdaki gibi bir şey, hiçbir sonuç göstermez.Birden çok yeni satırı, Perl'in Normal İfadeleriyle tek bir taneyle nasıl değiştirebilirim?
echo $'a\n\nb'|perl -p -e 's/\n\n/\n/s'
s/^\n\z//'u kullanmanız gerekir. Girdi satırdan okunur, böylece birden fazla yeni satır elde edemezsiniz. Bunun yerine, başka karakterler içermeyen satırları kaldırın. Sen
perl -ne 's/^\n\z//; print'
/s anahtarı için ihtiyaç kullanılarak perl çağırmak gerekir.
Girdi üç ayrı satırdır ve -p seçeneğiyle perl seçeneği yalnızca bir satırı işler.
Çözüm, birden çok giriş satırında bir kerede kırpmak için perl bildirmektir. Bunu yapmanın bir yolu şudur:
$/
echo $'a\n\nb' | perl -pe 'BEGIN{$/=undef}; s/\n\n/\n/'
nasıl hatları içine bir giriş akışı ayrıştırmak için Perl söyler record separator variable vardır.
boş satır baskı yapmadığı dar sorun daha basittir:
$(input) | perl -ne 'print if /\S/'
çıktısı sadece boşluk içeren dışındaki tüm hatları.
Kabuk komut dosyası için bir filtre olarak ihtiyacınız varsa, örneklerinizdeki gibi, "cat -s" ile daha hızlı ve daha uyumlu olursunuz. – Marian
@Marian İşaret ettiğin için teşekkürler. Sadece bugüne kadar "kedi yavrusu" okumamı fark ettim. –
@Marian Daha sonra giriş olarak buna ihtiyacım yok; Ama yine de, bunu işaretlediğiniz için teşekkürler. Gelecekte bunu kullanıyor olabilirim :) –