http://www.perlmonks.org?node_id=857734


in reply to Re^2: Splitting file into separate files based on record lengths and identifiers
in thread Splitting file into separate files based on record lengths and identifiers

It is working fin for me. The £ sign comes out funny because I an in Latinamerica and using the standard character set.

DATA 

0004$ADAM0002*330004%19770004$BOB 0002*430004%1967
0003$XDA0002*440004%22220003$XOB0002*990004%3333
0100$THIS IS A 100 CHAR FIELD £$%£%$£                                 
+                             12345
0030*THIS IS A 30 CHAR ONE

[download]

Result 

 
Process started >>>
$ => ADAM,BOB ,XDA,XOB,THIS IS A 100 CHAR FIELD ú$%ú%$ú               
+                                               12345
% => 1977,1967,2222,3333
* => 33,43,44,99,THIS IS A 30 CHAR ONE        
size of hash:  3.
------------------------------------------------------------
<<< Process finished.

[download]

In Section Seekers of Perl Wisdom