#Kein Kommentar+2007-12-14 17:15:34--

Code (perl): (dl )

1
2
3

my $string = "Maschine1_Temperatur_hinten_rechts";

my ($first_part, @parts) = split /\_/, $string;

1
2
3

my $string = "Maschine1_Temperatur_hinten_rechts";

my ($first_part, $last_part) = split /_/, $string, 2;

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem