Greg Jessup {Blog}

Home > Uncategorized > Replace Non Printable Characters in PERL String

Replace Non Printable Characters in PERL String

March 26th, 2009

#replace non printable characters in the descriptionmy %good = map {$_=>1} (9,10,13,32..126);$description =~ s/(.)/$good{ord($1)} ? $1 : ' '/eg;