Opened by rasidrasid at 2013-12-10 09:06
User since
2006-05-04
564 Artikel
BenutzerIn
2006-05-04
564 Artikel
BenutzerIn
Hallo rasidrasid,
Schreibe in den if-Block:
Du siehst hier, wie Du an die Einzelspalten kommen kannst (wenn meine Annahme im Kommentar stimmt). Wenn die Spaltenwerte nummerisch sind, kannst du jetzt auch schreiben: my $produkt = $spalten[1]*$spalten[2]; und dann diesen Wert ausgeben usw.
HTH
Grüße
payx
2013-12-10T09:54:46 rasidrasidMir ging es hauptsächlich darum, die Spalte1 und 2 in eine neue Datei zu schreiben und als dritte Spalte in der neuen Datei zb Spalte1*Spalte2 zu machen.
Schreibe in den if-Block:
Code (perl): (dl
)
1 2 3
my @spalten = split /\s+/; # Annahme: die Spalten enthalten selbst keine Leerzeichen, Tabs etc. next unless @spalten > 1; # Die beiden "Suchstellen" sollen nicht verarbeitet werden. print "$spalten[1] | $spalten[2]\n"; # Auf einzelne Spalteninhalte zugreifen.
Du siehst hier, wie Du an die Einzelspalten kommen kannst (wenn meine Annahme im Kommentar stimmt). Wenn die Spaltenwerte nummerisch sind, kannst du jetzt auch schreiben: my $produkt = $spalten[1]*$spalten[2]; und dann diesen Wert ausgeben usw.
HTH
Grüße
payx