Hallo,
vielen Dank für das Script, scheint genau das zu sein was ich suche. Nur
sollte das Ergebnis wie folgt ausssehen:
D.h. die Struktur bleibt erhalten und nur die Nummerne ändern sich das ist
ab byte 6 in der Länge 10.
FHEAD000000000120051209230059JST
THEAD0000000002ASNOut ASNOutCre
THDID000000000370000014787000001478
TACNT0000000004 000000000000000000000000
TITEM000000000504029049262596-SKU 0000000
TTAIL00000000060000000005
THEAD0000000007ASNOut
Ich werde mit dem script etwas "spielen" und denke das ich es hinbekomme.
Kannst Du evt. die Zeilen kurz kommentieren dann ist das verstehen
einfache und dann haben all was davon
Vielen Dank noch für die schnelle Antwort
Michael
"Dr. Jürgen Vollmer"
Am Dienstag, 13. Dezember 2005 22:49 schrieb Michael Hoeller:
FHEAD000000000120051209230059JST THEAD0000000002ASNOut ASNOutCre THDID000000000370000014787000001478 TACNT0000000006 000000000000000000000000 TITEM000000000704029049262596-SKU 0000000 TTAIL00000000080000000005 THEAD0000000009ASNOut
------------------------- doit.pl #!/bin/perl -w
while (<>) { chomp; $_ =~ /^(.{6})(.{12})(.*)$/ ; my ($pre, $line, $post) = ($1,$2,$3); printf "%s%012d%s\n", $pre, $., $3; } ---------- Erzeugt:
FHEAD000000000000151209230059JST THEAD0000000000002Out ASNOutCre THDID000000000000300014787000001478 TACNT0000000000004 000000000000000000000000 TITEM000000000000529049262596-SKU 0000000 TTAIL00000000000060000005 THEAD0000000000007Out
This e-mail (and/or attachments) is confidential and may be privileged. Use or disclosure of it by anyone other than a designated addressee is unauthorized. If you are not an intended recipient, please delete this e-mail from the computer on which you received it. We thank you for notifying us immediately.