Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Creating Storable objects from the C

by zwon (Monsignor)
on Dec 24, 2008 at 20:52 UTC ( #732509=perlquestion: print w/ replies, xml ) Need Help??
zwon has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!

We need to pass some data structures from C program to Perl. Structures may be rather complex. XML is good way to describe these structures, but it's too slow for this task, so I'm trying to find another way. One of my thoughts is about Storable, if we could create Storable object in C program it may solve our problem. So I'm wondering if there's some library which I could use from the C program to create Storable.

A Merry Christmas to All!

Comment on Creating Storable objects from the C
Re: Creating Storable objects from the C
by ikegami (Pope) on Dec 24, 2008 at 21:41 UTC
    There are already C libraries for JSON and YAML, I believe. Implementing Storable in C sounds like a lot of unnecessary work if it hasn't been done already.

      Just adding to this JSON::XS was faster than Storable in the last benchmark I saw/ran. Benchmarks can be misleading (size, data, versions) but even if it's not faster it's probably roughly as fast and if there are C libs available it would be easy to see if it worked well for you.

        In the last benchmark I ran, Storable was faster than JSON::XS, fwiw.

        ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊

Re: Creating Storable objects from the C
by tilly (Archbishop) on Dec 24, 2008 at 22:13 UTC
    Writing a Storable file from C does not sound like an easy solution to me. Here are alternate ways to solve this problem. I am assuming throughout that there is some C library you have that provides an interface into this data structure. If it doesn't exist yet, you should be able to build one fairly easily.
    1. Use a standard data exchange format such as XML or YAML. As you have discovered, this can be slow.
    2. Come up with a format for the data and use pack/unpack to pass data between C and Perl (great if it works but it won't always work).
    3. Write an XS interface for a C library that has the complete specification for the data structure then access your C library directly from Perl. This is a lot of work but should be very fast.
    4. Use swig to generate an interface into your C library. This actually builds an XS interface. I don't hear about people doing this much for Perl, and in my one experience with such an interface we found some performance silliness that we cleaned up, but it may save you some work.
    5. Use Inline::C in Perl to access your data. This is simpler to set up than the other versions, is fast (except the first time you call it), but requires a C compiler and some (fairly minimal) C knowledge from your Perl developers.
    From your question I suspect that you're using Storable. Be warned that the direct C solutions will not necessarily play well with Storable if your Perl developers are using that. The solution to that is to build STORABLE_freeze and STORABLE_thaw hooks that serialize and deserialize your C data structures into a string that Storable can use.

      Thanks, I suspected that there's no possibility to create Storable from C, but just wondered if it is. Yes, XML and YAML are too slow, but ikegamy just pointed me to JSON and it looks better, so maybe I will use it. Also I thought about XS, but this will require to design some format to transmit data and implement encoder/decoder, so I fear it would be just another *ML, maybe even not faster ;).

Re: Creating Storable objects from the C
by BrowserUk (Pope) on Dec 24, 2008 at 22:32 UTC

    You're looking at the wrong tool. Storable serialises Perl data structures. Even if a C-callable Storable library existed, you'd have to convert your C-structure into a Perl data structure first before you could use it.

    Most relative simple C-structs--ie. those that do not contain pointers--are most easily and efficiently accessed from Perl using unpack. If the structure uses pointers, then serialising it to some text format, is probably far easier than converting it to Perl's internal format.


    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://732509]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (10)
As of 2014-10-01 20:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (38 votes), past polls