Hello,

I was trying to split one file that contains a table of a database, but i couldn't.    

My file has as a field separator chr(1) and as a "row" separator chr(2).
But the problem is that the content of the last field can contain newline character and so on.


e.g: For the example here I replaced chr(1) into '|' and chr(2) into '%'

The source file
...
50003|KLECZ0003|12.12.2002|MP|[MPID]181519;(LZA)
AA: adi
DERMASN
GGGHHVN%50003|KLECZ0003|05.01.2004|MP|[MPID]278427;(LZA)
AS:dfs
Dear John
regards,
NoName%50004
...


The script
...
open fh, "<SourceFile.txt" or die "Couldn't open file: SourceFile.txt $!";
@Records = split (/%/,<fh>);
print "Records = @Records";
close(fh);

foreach $record (@Records)
{
   ($code,$pat_id,$date,$type,$desc)=split(/\|/,$record);
   print "Description = $desc \n";
}
...


It prints:
Records = 50003|KLECZ0003|12.12.2002|MP|[MPID]181519;(LZA)
Description = [MPID]181519;(LZA)


But what i want to get, is:
[MPID]181519;(LZA)
AA: adi
DERMASN
GGGHHVN



Could you help me on this, please?


Thanks in advance.


Carlos

Open the file and read it with

read (FH,$buffer,-s "filename.xxx");

Then

@rows = split(/\x01/,$buffer);
foreach $record(@rows) {
   @fields = split(/\x02/,$record);
}

---