Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

(jeffa) Re: inserting/deleting file data

by jeffa (Bishop)
on Mar 23, 2003 at 15:55 UTC ( [id://245278]=note: print w/replies, xml ) Need Help??


in reply to inserting/deleting file data

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"; }
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)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://245278]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2024-03-29 11:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found