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