| … | |
… | |
| 84 | sub decodeAnswers($) { |
84 | sub decodeAnswers($) { |
| 85 | my $string = shift; |
85 | my $string = shift; |
| 86 | return unless defined $string and $string; |
86 | return unless defined $string and $string; |
| 87 | my @array = split m/##/, $string; |
87 | my @array = split m/##/, $string; |
| 88 | $array[$_] =~ s/\\#\\/#/g foreach 0 .. $#array; |
88 | $array[$_] =~ s/\\#\\/#/g foreach 0 .. $#array; |
|
|
89 | push @array, "" if @array%2; |
| 89 | return @array; # it's actually a hash ;) |
90 | return @array; # it's actually a hash ;) |
| 90 | } |
91 | } |
| 91 | |
92 | |
| 92 | sub encodeAnswers(\%\@) { |
93 | sub encodeAnswers(\%\@) { |
| 93 | my %hash = %{ shift() }; |
94 | my %hash = %{ shift() }; |
Parent Directory
| 
Revision Log
| 
Patch