I think you're misunderstanding the packet format. When you say that the representation is in "binary", it doesn't mean the binary representation that you get by doing unpack "B*"; it means that your data is packed as if it's in a binary structure. So you have the right operator (pack), you just have the wrong pack template.

I think that this will work for you: 

    my $data = "LOGON USERNAME=NAME PASSWORD=PASS\0";
    my $packet = pack "CnCCNnn",
                2,                 ## sync byte
                length($data)+13,  ## message size
                13,                ## header size
                hex("4c"),         ## message type
                1,                 ## sequence ID
                0,                 ## protocol ID
                1;                 ## version number
    $packet .= $data;

[download]
That pack template ("CnCCNnn") says to pack the list of values (the rest of the arguments to pack) in the following way: This varies from your use of pack in two important ways. First, we no longer use 'unpack "B*"', because the point of that is to take a binary structure and make it into a human-readable string that looks like a sequence of bits. That's not what you want: you want to send the data to the server as a binary structure.

Second, you can't just use 'pack "N"'; that packs everything as a network-order long, which is 4 bytes. You don't want everything to be 4 bytes; some things are 1 byte, some are 2, some are 4. You have to vary you pack template depending on that.

In reply to Re: Socket Newbie (perl newbie, too...) by btrott
in thread Socket Newbie (perl newbie, too...) by Sabacthani

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.