删除非ASCII字符并在非ASCII字符使用Perl的字段中追加空格全部删除双“quote”？

Question

我正在通过一个固定的（平面文件）。我需要帮助来删除非ASCII字符，并在非ASCII字符使用Perl的字段中添加空格，所有删除双“quote”？我还需要删除任何不可见的字符并保留数据： 我需要使用正则表达式来执行此操作;

请看下面的例子：

FOìO BAR  PO BOX 1234   
LASDìBA"  PO BOX 1234 
VìD"Sxxx  PO BOX 1234 

1: $str =~ s/"/ /g; removes the " and replaces it with a space (good) 

2: $str =~ s/[^!-~\s]/ /g; 

请帮助：J-

Answer 1

你可以试试这个代码：

while(<DATA>) 
{ 
    $_=~s/([^[:ascii:]]|")/ /g; 
    print $_; 
} 


__DATA__ 
FOìO BAR  PO BOX 1234 
LASDìBA"  PO BOX 1234 
VìD"Sxxx  PO BOX 1234 

输出：

FO O BAR  PO BOX 1234 
LASD BA  PO BOX 1234 
V D Sxxx  PO BOX 1234 

Answer 2

我相信这将替换所有特殊和不可见的字符用空格。

$str =~ s/(.)/(ord($1) > 127) ? " " : $1/egs;