Hi tye,
Thanks!
I have no problem sharing the byte's offset, I have nothing to hide :)
It looks like it's the 9th byte (Byte 8 starting from 0).

It has the value 0x0D and it is apparently an un-needed extra byte located only on the file created in the Perl script and not in the same vector saved directly from matlab.

You can see a screenshot below of the comparisong in BeyondCompare:
(I hope you can see the picture in the link below)

Do you have any idea how to fix that...?

Thanks,
Koby

You need binmode.

- tye        

Thanks tye!
I saw the link, and tried to read it.
I admit it was quite intimidating at first, but actually quite simple!
Thank you very much!
The script works now!
You've helped me a lot!

For others who might find this thread and need this MAT saving routine from Perl,
below you can see the modified function. Works perfectly now (with binmode activated)!

Thanks,
Koby

sub mat4_write
{
# Variable name.
my $name = shift;

# Number of rows.
my $m = shift;

# Number of columns.
my $n = shift;

# Matrix elements in column major layout, this is the native
# Matlab storage layout for matrices.
my @a = splice (@_, 0, $m * $n);

# File handle.
my $h = shift;

# use binnary-mode:
binmode($h);

# Type flag.
my $type = $mat4_type;

# No imaginary part.
my $imag = 0;

# Length of variable name including terminating null character.
my $len = length ($name) + 1;

# Encode and print matrix.
print ($h pack ('l5Z*d*', $type, $m, $n, $imag, $len, $name, @a));
}
[download]

Thanks tye,
but excuse my ignorence,
how do I use the binmode...?


I've attached below the 'mat4_write' code.
Where should I tell it to use the binmode...?


Thanks,
Koby


sub mat4_write
{
# Variable name.
my $name = shift;

# Number of rows.
my $m = shift;

# Number of columns.
my $n = shift;

# Matrix elements in column major layout, this is the native
# Matlab storage layout for matrices.
my @a = splice (@_, 0, $m * $n);

# File handle.
my $h = shift;

# Type flag.
my $type = $mat4_type;

# No imaginary part.
my $imag = 0;

# Length of variable name including terminating null character.
my $len = length ($name) + 1;

# Encode and print matrix.
print ($h pack ('l5Z*d*', $type, $m, $n, $imag, $len, $name, @a));
}
[download]