Help for this page

Select Code to Download


  1. or download this
       Perl:
    
    ...
               a_record.id   = 419;
               a_record.time = time();
               strcpy (a_record.name, "Quentin");
    
  2. or download this
         my (%record) = ();
         my ($packed_record);
    ...
         open (FILE, ">$data_file");
         print $packed_record;
         close (FILE);
    
  3. or download this
          'Q' 'u' 'e' 'n' 't' 'i' 'n' \x00