führende und folgende Zeichen entfernen - #150610 (Allgemeines zu Perl)

grauwau

2011-07-20 15:00

User since
2011-07-20
2 Artikel
BenutzerIn
[default_avatar]

Quote

Code: (dl )

1
2

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

Hallo Forum,

dieser Thread scheint ja wohl zu meinem Problem zu passen, da brauch ich nicht gleich mit meinem ersten Beitrag einen neuen aufmachen *g*

Code: (dl )

1
2
3

my $zeile = "a   b   c "; # oder Var. 2: " a   b   c "
my @array = split( /[ \t]+/ , $zeile );
foreach( @array ) { print( $_.":" ) }

Das geht soweit, aber nur wenn vor dem ersten Zeichen kein Leerzeichen steht. Wenn doch, erhalte ich 4 Array Elemente, das erste enthält einen Nullstring.

Wie kriege ich alle Wörter und nur die in ein Array, egal wie viele Leerzeichen und Tabs drumrumstehen?

Ich hab Perl vor 2 Tagen entdeckt, eigentlich wollte ich ein Bash Script stricken. Bin total begeistert, nur diese s/^\s+// Würmer machen mir Kopfweh. Bestimmt muss der in meinem Codeschnipsel noch ein Stück verlängert werden *g*

mfg
grauwau
Last edited: 2011-07-20 15:07:40 +0200 (CEST)