in reply to Perl script to decode MySQL ENCODE() function

Don't see a CPAN module that does this explicitly. However, the SQL Server Documentation says there are very few characters encoded, and they're all covered by URI::Escape. So, untested but may work for ya:

use URI::Escape;
print uri_unescape(">>>%5C %2F %3A %25 %3C %3E %2A %3F %5B %5D %7C<<<"
+);

[download]
UGH... that is actually powershell documentation... Do you have an example of an encoded string?

Replies are listed 'Best First'.
Re^2: Perl script to decode SQL ENCODE function
by Martin90 (Sexton) on Jul 22, 2013 at 12:00 UTC
    I changed topic I was thinking about MySQL ENCODE() function. Here is example: string test after ENCODE() => ŒÃ
[reply]

      Could you give an actual code example, i'm not sure what you're saying. It appears from the MySQL documentation that the ENCODE function requires 2 parameters, but you haven't mentioned that. Anyway, likely the best way is to just connect to MySQL and perform the operation, for example:

      use strict;
use warnings;
use DBI;
my $dsn = 'DBI:mysql:host=localhost';
my $dbh = DBI->connect($dsn);
my $sth = $dbh->prepare("SELECT DECODE('encodedcontent', 'secretvalue'
+)");
$sth->execute;
my $decoded = $sth->fetchrow;
print $decoded;

      [download]
[reply]
[d/l]
        There is problem: SELECT ENCODE('test','test') returns ?üÔÚ but SELECT DECODE('?üÔÚ','test') doesn't return test but ttZ¦ô what is wrong ?
[reply]
[reply]

In Section Seekers of Perl Wisdom