letzte Spalte in jeder zeile ändern: die zahlen durch best. zahl teilen - #70943 (Allgemeines zu Perl)

bloonix

2006-10-19 12:15

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=sabrina,19.10.2006, 09:36]@opi versteh deinen CODE nicht warum column ohne -1 es gibt keine 6 spalte es gibt nur 5. [/quote]
Ganz einfach...

Deine Split-Anweisung schaut wie folgt aus:

split(/[\t\s\\]/,$line

Du splittest nach Tab, Leerzeichen oder Slash, aber nicht nach einem
Semikolon, deshalb bin ich davon ausgegangen, dass deine Zeilen so
aussehen

[quote=renee,19.10.2006, 09:51]

Code: (dl )

1
2
3

dies ist ein Test 32 160
noch ein anderer Test 160
name einer anderen Datei 2 389

[/quote]

Bei $columns ohne -1 wird ganz einfach die 6. Spalte mit in das @array
geschoben. Die 6. Spalte beinhaltet eine Zahl, wenn die Zeile so aussieht:

Code: (dl )

1
2

  1     2      3      4   5  6
name einer anderen Datei 2 389

Folgend wird 5+6 konkatiniert, wenn Spalte 6 eine Zahl ist.

Du hast $columns mit einer 5 angegeben, was der 5. Index - beginnend mit
0 - in einem Array, aber die 6. Spalte in einer "Tabelle" ist. Leider war nicht
ganz klar, wie die Zeilen nun tatsächlich aussehen, deshalb habe ich mich
an dem Format deiner Split-Anweisung orientiert.

Gruss,
opi\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.