String bearbeitung - nach leerzeichen alles entfernen - #130505 (Allgemeines zu Perl)

Gast wer

2010-01-14 16:52

Code (perl): (dl )

1
2
3

my $test="Das ist eine Test";
my ($first)=split(/\s/,$test,2);
print "$first\n"

oder

Code (perl): (dl )

1
2
3

my $test="Das ist eine Test";
my ($first)=$test=~/^(.+?)\s/;
print "$first\n"

oder

Code (perl): (dl )

1
2
3

my $test="Das ist eine Test";
my $first=substr($test,0,index($test,' ')-1);
print "$first\n"