Try packing with 'a' instead of 'A'. Note that packing with 'A' will add trailing whitespace:my @data = ( 'thrakb boom ', 'a d j k l j s f', '012345678901234', ); foreach (@data) { print 'a unpack: ', join('|', unpack('a5a5a5',$_)), "\n"; print 'A unpack: ', join('|', unpack('A5A5A5',$_)), "\n"; } my @record = ( [qw(123 blah 21)], [qw(45 sadflkj 9)], [qw(4532 j 99)], ); foreach (@record) { print 'A pack: ', pack('A4 A10 A2',@$_),"\n"; print 'a pack: ', pack('a4 a10 a2',@$_),"\n"; }
a A
pack does not add space adds trailing space
unpack does not remove space removes trailing space
Update: added pack example, prolly what i should have used
instead of the unpack example. ;)
jeffa
L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)
In reply to (jeffa) Re: inserting/deleting file data
by jeffa
in thread inserting/deleting file data
by toonski
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |