Opened by tobias at 2011-06-22 16:00
User since
2006-01-27
3881 Artikel
HausmeisterIn
2006-01-27
3881 Artikel
HausmeisterIn
Das Problem ist, dass die letzten Zeilen nicht mehr mit einem Leerzeichen beginnen und die für Dich relevanten Daten damit nicht mehr in $val[1] und $val[2] liegen, sondern in $val[0] und $val[1].
Ich würd es gleich beim Einlesen splitten und dabei Perl-Magic verwenden; nachzulesen in perldoc -f split
ungetestet:
Ich würd es gleich beim Einlesen splitten und dabei Perl-Magic verwenden; nachzulesen in perldoc -f split
ungetestet:
Code (perl): (dl
)
1 2 3 4 5 6 7 8
# ... other code while ( <inp1> ) { # split at whitespaces and ignore leading whitespaces... my @val = split; print out1 join ",", @val; } close inp1; close out1;
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!