Re^3: Spreadsheet::XLSX returning < > and & instead of

Likely beyond my Perl skill level at the moment, but I'll keep it in mind. Meanwhile, I wrote a small function to fix the data. I also found code strings in the original data that we decided needed fixin', so this function might be all I need at the moment.

sub FixXML {
    $parm = $_[0];
    $parm =~ s/&amp;/&/g;
    $parm =~ s/&gt;/>/g;
    $parm =~ s/&lt;/</g;
    $parm =~ s/&quot;/"/g;
    $parm =~ s/&apos;/'/g;
    $parm =~ s/&#xA;/\n/g;
    $parm =~ s/&#xa;/\n/g;
    $parm =~ s/&#xD;/\r/g;
    $parm =~ s/&#xd;/\r/g;
    $parm =~ s/&#x9;/\t/g;
    return($parm);
}
[download]

Comment on Re^3: Spreadsheet::XLSX returning < > and & instead of < > & Download Code

Replies are listed 'Best First'.
Re^4: Spreadsheet::XLSX returning < > and & instead of < > & by Anonymous Monk on Feb 05, 2016 at 20:37 UTC
Note that this set of regexes will convert '&lt;' to '<' due to the repeated substitutions. But you could do the & substitution last to avoid that. Percents are also documented as something that gets escaped, so you'll want a substitution for that too.	[reply]
Re^4: Spreadsheet::XLSX returning < > and & instead of < > & by Anonymous Monk on Feb 08, 2017 at 09:46 UTC
Thank you, it worked for me	[reply]