Am Dienstag, 13. Dezember 2005 22:49 schrieb Michael Hoeller:
FHEAD000000000120051209230059JST THEAD0000000002ASNOut ASNOutCre THDID000000000370000014787000001478 TACNT0000000006 000000000000000000000000 TITEM000000000704029049262596-SKU 0000000 TTAIL00000000080000000005 THEAD0000000009ASNOut
etwa so:? ------------------------- 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 ----- Aufruf: doit.pl datei.... oder doit.pl < datei Bye Jürgen PS: es gibt in Perl auch noch pack/unpack, aber da kenn' ich mich nicht mit aus. -- Dr.rer.nat. Juergen Vollmer, Viktoriastrasse 15, D-76133 Karlsruhe Tel: +49(721) 92 04 87 1 Fax: +49(721) 92 04 87 2 Juergen.Vollmer@informatik-vollmer.de www.informatik-vollmer.de Internet-Telefonie: www.skype.com Benutzer: juergen.vollmer