Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+3 replies1 2 3 4 5 6
#!/usr/local/bin/perl -w $zeile = "compute_sys.txt"; @c = split(/_/,$zeile,2); foreach $x (@c) { print "$x\n" }
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
compute
sys
+2 replies![[Homepage]](/battie/theme/default/homepage.gif)
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;
1 2
(@teile) = split(/_/,$zeile,2); print $teile[0]; # erster Eintrag im Array enthält erste abgeteilte Zeichenkette
![[Powered by Battie]](/battie/img/powered.png)
