in reply to Re^4: Write Matlab binary MAT-files from Perl (binmode)
in thread Write Matlab binary MAT-files from Perl

Thanks tye for your help!
One last question, if you may.
Now that if finally works, I'm trying to save also an array of strings instead of numbers (strings with the same length, as matlab requires) .
Do you have any idea how should I change the routine above to write matrix with characters (text) in this binary MAT file?

I guess I should change the pack format string: 'l5Z*d*'.
From what you wrote at the beginning, I guess I should change the d (A double-precision float in native format) to some of the string/text options...
I tried several string/text options (a,A,Z,b,h) but none of them worked...
Some create zeros instead of characters, and some create illegal file that cannot be read by matlab...

Do you have any idea how should I change the 'pack' format string...?
Perhaps the format string is not enough...?

Thanks,
Koby

  • Comment on Re^5: Write Matlab binary MAT-files from Perl (binmode)

Replies are listed 'Best First'.
Re^6: Write Matlab binary MAT-files from Perl (repeat)
by tye (Sage) on Jul 25, 2014 at 22:59 UTC

    For fixed-length formats (like 'd'), a '*' means "consume the remaining arguments". For formats that can have a length (like the ones you are trying to switch to), a '*' means "use the length of the next argument".

    So you need to repeat the variable-length format specifications an appropriate number of times. Like: 

    'l5Z*'.('Z*'x@s)

    [download]

    - tye        

[reply]
[d/l]

      Hi tye,
      I'm sorry, but it didn't work...

      Just to make sure I understood correctly:
      I changed the print line from this:
      print ($h pack ('l5Z*d*', $type, $m, $n, $imag, $len, $name, @a));
      to this:
      print ($h pack ('l5Z*'.('Z*'x@s), $type, $m, $n, $imag, $len, $name, @a));

      and from the main routine called:
      mat4_write ('foo', 3, 1, ('aaa','bbb','ccc'), *MAT);

      If you have another idea I would love to try it.
      If not, I will give it up and save string arrays as their ascii numbers representations and convert back to strings inside matlab...

      Thanks and good night,
      Koby

      p.s: Does Perl has a built-in function that converts a string to an array of its ascii numbers representation?
      i.e.: 'ABC' -> (65,66,67)

[reply]
[d/l]
[select]

        What's your perl version? Try this perhaps: 

        print $h pack 'l4 l/Z (Z*)*', $type, $m, $n, $imag,  $name,  @a;

        [download]
        Re: ascii string to characters—that's simple: my @arr = unpack 'C*', $x;

[reply]
[d/l]
[select]

        Forgot to mention that the created file was loaded correctly to Matlab, but the matrix has 3 zeros instead of the 3 desired strings.

        Thanks,
        Koby

[reply]

In Section Seekers of Perl Wisdom