Comment puis-je extraire toutes les citations dans un texte?

Question

Je suis à la recherche d'un SimpleGrepSedPerlOrPythonOneLiner qui affiche toutes les citations dans un texte.

---

Exemple 1:

echo “HAL,” noted Frank, “said that everything was going extremely well.” | SimpleGrepSedPerlOrPythonOneLiner 

stdout:

"HAL," 
"said that everything was going extremely well.” 

---

Exemple 2:

cat MicrosoftWindowsXPEula.txt | SimpleGrepSedPerlOrPythonOneLiner 

stdout:

"EULA" 
"Software" 
"Workstation Computer" 
"Device" 
"DRM" 

etc.

(link to the corresponding text).

Answer 1

I like this:

perl -ne 'print "$_\n" foreach /"((?>[^"\\]|\\+[^"]|\\(?:\\\\)*")*)"/g;' 

Il est un peu bavard, mais il gère guillemets échappés et revenir en arrière beaucoup mieux que la mise en œuvre la plus simple. Qu'est-ce qu'il dit est:

my $re = qr{ 
    "    # Begin it with literal quote 
    ( 
    (?>   # prevent backtracking once the alternation has been 
        # satisfied. It either agrees or it does not. This expression 
        # only needs one direction, or we fail out of the branch 

     [^"\\] # a character that is not a dquote or a backslash 
    | \\+  # OR if a backslash, then any number of backslashes followed by 
     [^"]  # something that is not a quote 
    | \\  # OR again a backslash 
     (?>\\\\)* # followed by any number of *pairs* of backslashes (as units) 
     "   # and a quote 
    )*   # any number of *set* qualifying phrases 
)    # all batched up together 
    "    # Ended by a literal quote 
}x; 

Si vous n'avez pas besoin autant de pouvoir - dire qu'il est seulement susceptible d'être de dialogue et non citations structurées, puis

/"([^"]*)"/ 

fonctionne probablement aussi bien que tout autre.

Answer 2

grep -o "\"[^\"]*\"" 

Ce greps pour " + tout sauf une citation, un certain nombre de fois + "

Le -o fait que la sortie du texte correspondant, et non pas la ligne.

Answer 3

Aucune solution regexp ne fonctionnera que si vous avez des citations imbriquées, mais pour vos exemples, cela fonctionne bien

$ echo \"HAL,\" noted Frank, \"said that everything was going extremely well\" 
| perl -n -e 'while (m/(".*?")/g) { print $1."\n"; }' 
"HAL," 
"said that everything was going extremely well" 

$ cat eula.txt| perl -n -e 'while (m/(".*?")/g) { print $1."\n"; }' 
"EULA" 
"online" 
"Software" 
"Workstation Computer" 
"Device" 
"multiplexing" 
"DRM" 
"Secure Content" 
"DRM Software" 
"Secure Content Owners" 
"DRM Upgrades" 
"WMFSDK" 
"Not For Resale" 
"NFR," 
"Academic Edition" 
"AE," 
"Qualified Educational User." 
"Exclusion of Incidental, Consequential and Certain Other Damages" 
"Restricted Rights" 
"Exclusion des dommages accessoires, indirects et de certains autres dommages" 
"Consumer rights" 

Answer 4

grep -o '"[^"]*"' file 

L'option '-o' imprimer seul modèle