<%@ Language=PerlScript %> <% use Storable qw(freeze thaw); use Convert::UU qw(uuencode uudecode); my %h = (llave1=>'valor1', llave2=>{llave3=>'valor3'}); my $h_froz = freeze \%h; $main::Application->Contents->SetProperty('Item', 'prueba_app', $h_froz ); my $h_recup = $main::Application->Contents('prueba_app'); $result = 'RESULTS:'; foreach(0 .. length $h_con) { my $ch1 = substr $h_con, $_, 1; my $ch2 = substr $h_recup, $_, 1; if (ord($ch1) == ord($ch2)) { $result .= "$_ SAME " . ord $ch1; } else { $result .= "$_ DIFFERENT " . ord ($ch1) . '-' . ord ($ch2); } $result .= '
'; } %> result: <%= $result %>