GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages


Manual Reference Pages  -  DATA::SERIALIZER::COOKBOOK (3)

.ds Aq ’

NAME

Cookbook - Examples of how to use Data::Serializer

CONTENTS

DESCRIPTION

<B>Data::Serializer::CookbookB> is a collection of solutions for using <B>Data::SerializerB>.

CONVENTIONS

Unless otherwise specified, all examples can be assumed to begin with:



  use Data::Serializer;

  my $serializer = Data::Serializer->new();



Some examples will show different arguments to the <B>newB> method, where specified simply use that line instead of the simple form above.

CONVENTIONS for Raw Access

Fort hose who want a straight pass through to the underlying serializer, where nothing else is done (no encoding, encryption, compression, etc) there is Data::Serializer::Raw(3).

These begin like this:



  use Data::Serializer::Raw;

  my $raw_serializer = Data::Serializer::Raw->new();



Encrypting your data

You wish to encrypt your data structure, so that it can only be decoded by someone who shares the same key.

    Solution



  $serializer->secret(mysecret);

  my $encrypted_hashref = $serializer->serializer($hash);

  ... (in other program) ...

  $serializer->secret(mysecret);

  my $clear_hash = $serializer->deserializer($encrypted_hash);



Note: You will have to have the Crypt::CBC module installed for this to work.

Compressing your data

You wish to compress your data structure to cut down on how much disk space it will take up.

    Solution



  $serializer->compress(1);

  my $compressed_hashref = $serializer->serializer($hash);

  ... (in other program) ...

  my $clear_hash = $serializer->deserializer($compressed_hash);



Note: You will have to have the Compress::Zlib module installed for this to work. Your mileage will vary dramatically depending on what serializer you use. Some serializers are already fairly compact.

You want to read in data serialized outside of Data::Serializer

You need to write a program that can read in data serialized in a format other than Data::Serializer. For example you need to be able to be able to process data serialized by XML::Dumper.

    Solution



  use Data::Serializer::Raw;

  my $xml_raw_serializer = Data::Serializer::Raw->(serializer => XML::Dumper);

  my $hash_ref = $xml_raw_serializer->deserialize($xml_data);



You want to write serialized data in a form understood outside of Data::Serializer

You need to write a program that can write out data in a format other than Data::Serializer. Or said more generically you need to write out data in the format native to the underlying serializer. For our example we will be exporting data using XML::Dumper format.

    Solution



  ues Data::Serializer::Raw;

  my $xml_raw_serializer = Data::Serializer::Raw->(serializer => XML::Dumper);

  my $xml_data = $xml_raw_serializer->serialize($hash_ref);



You want to convert data between two different serializers native formats

You have data serialized by php that you want to convert to xml for use by other programs.

    Solution



  use Data::Serializer::Raw;

  my $xml_raw_serializer = Data::Serializer::Raw->(serializer => XML::Dumper);

  my $php_raw_serializer = Data::Serializer::Raw->(serializer => PHP::Serialization);

  my $hash_ref = $php_raw_serializer->deserialize($php_data);

  my $xml_data = $xml_raw_serializer->serialize($hash_ref);



Keeping data persistent between executions of a program.

You have a program that you run every 10 minutes, it uses SNMP to pull some counters from one of your routers. You want your program to keep the counters from the last run so that it can see how much traffic has passed over a link since it last ran.

    Solution



  # path to store our serialized data
  # be paranoid, use full paths
  my $last_run_datafile = /full/path/to/file/lastrun.data;

  #We keep our data as a hash reference
  my $last_data = $serializer->retrieve($last_run_datafile);
 
  #Pull in our new data through pull_data();
  my $new_data = query_router($router);

  #run comparison code
  run_comparison($last_data,$new_data);

  $serializer->store($new_data);



AUTHOR

Neil Neely <neil@neely.cx>.

COPYRIGHT

Copyright (c) 2001-2011 Neil Neely. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Data::Serializer(3)
Data::Serializer::Raw(3)
Search for    or go to Top of page |  Section 3 |  Main Index


perl v5.20.3 DATA::SERIALIZER::COOKBOOK (3) 2016-03-17

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.