Opened by Henri at 2015-04-03 14:36
User since
2005-01-17
14760 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14760 Artikel
Admin1
Code (perl): (dl
)
1 2 3
$zeile = "compute_sys.txt"; ($vorn, undef) = split(/_/,$zeile,2); # split in zwei Teile, zweiter Teil wird undef, weil nicht benötigt print $vorn;
oder
Code (perl): (dl
)
1 2
(@teile) = split(/_/,$zeile,2); print $teile[0]; # erster Eintrag im Array enthält erste abgeteilte Zeichenkette