Perl: dizenin başındaki ve sonundaki boşlukları kırpma işlevi

Baştaki ve sondaki beyaz boşlukları böyle kırpmak için yerleşik bir işlev var trim(" hello world ") eq "hello world"mı?

Normal ifade kullanan bir yaklaşım şu şekildedir:

$string =~ s/^\s+|\s+$//g ;     # remove both leading and trailing whitespace

Perl 6, bir kırpma işlevi içerecektir:

$string .= trim;

Kaynak: Wikipedia

Bu, şu yöntemle String :: Util'de mevcuttur trim:

^{Editörün notu: String::Utilbir çekirdek modülü değil, ama sen yükleyebilirsiniz CPAN ile [sudo] cpan String::Util.}

use String::Util 'trim';
my $str = "  hello  ";
$str = trim($str);
print "string is now: '$str'\n";

baskılar:

string artık 'merhaba'

Ancak, kendi başınıza yapmanız yeterince kolaydır:

$str =~ s/^\s+//;
$str =~ s/\s+$//;

Yerleşik bir trimişlev yoktur, ancak basit bir ikame kullanarak kendi işlevinizi kolayca uygulayabilirsiniz:

sub trim {
    (my $s = $_[0]) =~ s/^\s+|\s+$//g;
    return $s;
}

veya Perl 5.14 ve sonrasında tahribatsız ikame kullanarak :

sub trim {
   return $_[0] =~ s/^\s+|\s+$//rg;
}

Bu perlmonk'un başlığına göre :

$string =~ s/^\s+|\s+$//g;

Buradaki uygulamada nasıl yapılacağını tamamlayın: http://learn.perl.org/faq/perlfaq4.html#How-do-I-strip-blank-space-from-the-beginning-end-of-a-string-

Text :: CSV kullananlar için bu konuyu buldum ve sonra CSV modülünde anahtarla çıkarabileceğinizi fark ettim:

$csv = Text::CSV->new({allow_whitespace => 1});

Mantık geriye doğrudur, eğer soymak istiyorsanız 1'e ayarlayın. Şekil gidin. Umarım bu herkese yardımcı olur.

Seçeneklerden biri Text :: Trim :

use Text::Trim;
print trim("  example  ");

Uygula: s/^\s*//; s/\s+$//;ona. Ya s/^\s+|\s+$//gda süslü olmak istiyorsanız kullanın.

Ayrıca, metnin içindeki yinelenen boşlukları kırpmak için pozitif bir bakış açısı kullanıyorum:

s/^\s+|\s(?=\s)|\s+$//g

Hayır, ancak aynı sonucu elde etmek için s///ikame işlecini ve \sboşluk iddiasını kullanabilirsiniz.