comment on

I personally would rather use DBD::SQLite for such a problem, but it sounds like you are using pack, no? If that is the case, are you packing/unpacking with 'a' or 'A'?

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";
}
[download]

Try packing with 'a' instead of 'A'. Note that packing with 'A' will add trailing whitespace:


           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

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


more useful options
	PerlMonks