如何使用perl / awk / sed搜索文件中所有用引号引起来的文本，然后将其删除？

Question

How can I use perl, awk, or sed to search for all occurrences of text wrapped in quotes within a file, and print the result of deleting those occurrences from the file? I do not want to actually alter the file, but simply print the result of altering the file like sed does.

For example, say the file contains the following :

data|more data|"not important"|"more unimportant stuff"

I need it to print out:

data|more data||

But I want to leave the file intact. I tried using sed but I could not get it to accept regexs.

I have tried something like this:

sed -e 's/\<["]+[^"]*["]+\>//g' file.txt

but it does nothing and prints the original file. Any Thoughts?

Answer 1

Using a perl one-liner:

perl -pe 's/".*?"//g' file

Explanation:

Switches :

• -p : Creates a while(<>){...; print} while(<>){...; print} loop for each line in your input file.
• -e : Tells perl to execute the code on command line.

Answer 2

You seem to have a few extra characters in your sed command.

sed -e 's/"[^"]*"//g' file.txt

Input:

"quoted text is here" but not quoted there
never more
"hello world" foo bar
data|more data|"not important"|"more unimportant stuff"

Output:

 but not quoted there
never more
 foo bar
data|more data||

Answer 3

echo 'data|more data|"not important"|"more unimportant stuff"' | sed -E 's/"[^"]*"//g'

您不需要只为一个字符声明一个字符类（括号）...

Answer 4

my $cnt=qq(data|more data|"not important"|"more unimportant stuff");
my @arr = $cnt =~ m{(?:^|\|)([^"][^\|]*[^"])(?=\||$)}ig;
print "@arr";

This code might help you..