Perl Komutu Eşlemede Boşlukları Kaldırıyor

Question

İyi çalıştığım bir komut dosyası var ama sahip olduğum sorun, tüm kelimeleri eşlemede birleştirip boşlukları kaldırmasıdır. Kimse bana ek olanı söyleyebilmemde yardımcı olabilirse veya komut dosyasındaki kelimeleri birleştirmekten sakınmak için eksiklerim varsa.

use strict; 

my $find = '^M0|MT'; 
my $match = 0; 

open (NEW, ">", "Output.txt") or die "could not open:$!"; 
open (FILE, "<", "File.txt") or die "could not open:$!"; 

while (<FILE>) { 
    chomp; 

if ($match){ 
    $match = 0; 
    s/\s+//g; 
    print NEW "$_\n"; 
} 

if (/$find/){ 
    $match = 1; 
    print NEW "$_" 
} 
} 
close (FILE); 
close (NEW); 

Dosya Örnek

  U# mul acc  UNIT # HAS MULTIPLE ACCOUNTS   FAIL 

Çıktı Örneği (şu anda senaryom neler oluyor)

  U#mulaccUNIT#HASMULTIPLEACCOUNTSFAIL 

Answer 1

@ThisSuitIsBlackNot zaten işaret gibi:

hat

s/\s+//g; 

Mekanlarınızı yiyorsunuz. Şu şekilde ifade eder: bir veya daha fazla boşluğun sırasını hiçbir şekilde değiştirmeyin ve tam giriş dizesi için tekrarlayın. Söyleyecek amaçlanan gibi

görünüyor:

s/\s+/ /g; 

yüzden, sadece tek bir boşlukla boşluklar dizisi değiştirilmesi.