Perl - Convert MSSQL Image string to JPEG/PNG using Perl

Question

Without having to use Image::Magick;, is there a way to output to the local file system an MSSQL Image string as a JPEG/PNG file.

The following in C# works very well, struggling to find the equivalent in Perl.

     string base64string = "/9j/4AAQSkZJRgABAQAAAQABAAD/4QB...";  # This string shortened otherwise it would not fit
       byte[] blob = Convert.FromBase64String(base64string);
       File.WriteAllBytes(@"C:\image.jpg", blob);

Thanks.

Answer 1

Looks like you just need decode_base64 on your string. Then write it to the file opened with > and run binmode on handler. So your data will not be corrupted by new line character conversion.