Re: [MacPerl] StyledText data into a record of text and styl

[Alan Fry]

At 11:44 pm +0100 19/03/01, Bart Lateur wrote:

>Damn, you guys beat me to it. Ok, here's how I would have done it. Note
>that the functionality is the same.

Oh, but it was worth waiting for: it is so elegant:

>         (my $data, $_) = unpack "x8a${len}x@{[$len & 1]}a*", $_;

The "even/uneven" solution in_line with "x@{[$len &1]}" is simply exquisite.

Alan Fry