Newbie - Einlesen von Text in arrays - #50371 (Allgemeines zu Perl)

PatrickS

2004-12-28 10:45

User since
2004-12-27
7 Artikel
BenutzerIn
[default_avatar]

Hallo nochmal,

ok \d* und \w* hab ich gefunden (d steht für digit character, w für word character, * für 0 oder mehr Treffer - soweit so gut.
Warum importiere ich jedoch immer nur ein Digit bei folgendem String?

Textfile:
:URSPRUNG=123,CODE=320317440,VOL=0&1&2&3&4&5&6&7&8&9!
:URSPRUNG=123,CODE=3203177290,VOL=0&1&2&3&4&5&6&7&8&9!
:URSPRUNG=123,CODE=320317770,VOL=0&1&2&3&4&5&6&7&8&9!
:URSPRUNG=123,CODE=32021883,VOL=3&4&5!
:URSPRUNG=123,CODE=4203204,VOL=4&5&6&7!

Perl Code:

Code: (dl )

open DATAIN, 'file.txt' or die $!;
open DATAOUT, '>outputfile.txt' or die $!;
print DATAOUT join "", /URSPRUNG=(\d*)/, /CODE=(\d*)/,  /VOL=(\w*)/, "\n" while <DATAIN>;
close DATAIN;
close DATAOUT;

Ausgabe:
1233203174400
12332031772900
1233203177700
123320218833
12342032044

Erwartet hätte ich:
1233203174400&1&2&3&4&5&6&7&8&9
12332031772900&1&2&3&4&5&6&7&8&9
1233203177700&1&2&3&4&5&6&7&8&9
1233202188333&4&5
123420320444&5&6&7

Das & beschreibt ein Volumen dh. aus 1233202188333&4&5 sollen später drei Zeilen generiert werden:
123320218833
123320218834
123320218835

Viele Grüße,
Patrick

edit renee: ne Runde [code]-Tags spendiert. Die lieben wir so ;)\n\n