Warum löscht chomp nicht Leerzeichen um meine Saite?

Question

Ich verstehe nicht, warum Perl chomp die Leerzeichen um meine Zeichenfolge nicht entfernt. Ich habe sogar versucht, chomp zweimal zu nennen, zum Beispiel bash mit:

$ perl -e 'use 5.22.4; chomp(my $extra=" lol "); chomp($extra); say "<$extra>"' 
<lol> 

ich wirklich erwartet

<lol> 

Answer 1

Chomp nur entfernt die Linie bekommen Endung (kann mit $/ variabel eingestellt werden) vom Ende der Schnur. Es schneidet die Saite nicht ab. Perl hat keine eingebaute Trimmfunktion. Ich buchstabieren in der Regel zwei Substitutionen statt:

s/^\s+//, s/\s+$// for $string; 

Weiterführende Literatur:

• perldoc -f chomp
• Perl FAQ: How do I strip blank space from the beginning/end of a string?

Answer 2

Um alle Leerzeichen zu entfernen:

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

Linke trim:

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

Rechts Trim:

$string =~ s/\s+$//; 

links und rechts trim:

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

Wir können dann auch Trimmen fucntions bauen. Dies hilft bei viel größeren Skripts, bei denen Sie nicht jedes Mal die vollständigen Ersetzungszeichenfolgen schreiben möchten, wir schreiben sie einmal und verwenden dann die Funktion, um die Arbeit zu erledigen.

Diese einfache Funktion kann in jedem Skript als trim($string);

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

ähnlich ist es mit einem vollen Streifen von Leerzeichen verwendet werden.

sub full_strip { 
    $_[0] =~ s/\s+//g; 
} 

in einem Skript:

use strict; 
use warnings; 
my $string = " this is line with leading and trailing whitespaces "; 
my $string2 = "   another one of those lines "; 

trim($string); 
trim($string2); 

print "$string\n"; 
print "$string2\n"; 

full_strip($string); 
full_strip($string2); 

print "$string\n"; 
print "$string2\n"; 


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

sub full_strip { 
    $_[0] =~ s/\s+//g; 
    } 

Answer 3

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

Diese für jede generische String gut funktionieren würde, wo man Anfang und Ende Leerzeichen entfernen möchten.