Differences

This shows you the differences between two versions of the page.

--- cgi_jquery [2022/10/17 12:52] – admin
+++ cgi_jquery [2022/10/17 12:57] (current) – admin
@@ Line 26: / Line 26: @@
 my $n=scalar(@pairs);
 print OUT "THere are $n values\n";
-print OUT Dumper(@pairs);
+#print OUT Dumper(@pairs);
 my %FORM;
 foreach my $pair (@pairs)
 {
     my ($name, $value) = split(/=/, $pair);
-    print OUT "name=$name value=$value\n";
-    #    print "$name-$value\n";
-    $value =~ tr/+/ /;
-    $value =~ s/%5B//g;
-    $value =~ s/%5D/ /g;
-    #    $value =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
-    #$value =~ s/~!/ ~!/g;
     $FORM{$name} = $value;
-    #    print "Name=$name"." value= ".$value;
-    #print "\n";
-    #print $buffer."\n";
 }
 print OUT "Printing form\n";
@@ Line 65: / Line 57: @@
 $VAR11 = 'CK_imap.gmail-3.com.db';
 $VAR12 = 'CK_imap.gmail-3.com.db';
+...
 </code>
-Dump is weird.  It dumps hashs as an array of pairs so this is what the hash really looks like:
+Dump is weird.  It dumps hashes as an array of pairs so this is what the hash really looks like:
 <code>
 {"query":""
@@ Line 73: / Line 66: @@
 "xDB":"_ODB_"
 "xSORT":"_OSORT_"}
+...
+</code>
+Also one way to initialize a hash:
+<code>
+my %rec_hash = ('name'=>$name, 'type'=>$type,'data'=>$data,'ttl'=>$ttl);
 </code>