регулярное выражение для захвата содержимого «...»

Question

Я хочу извлечь символы из первых двух вхождений " в мою строку.

пример:

my $string = 's.w;;wq[]][.zaw"this is what I need"as.w;;wq[]][.zaw"this I do not need".w;;wq[]][.za'; 

Спасибо заранее для решения моей проблемы :)

Answer 1

Взгляните на perlretut - Using Character Classes.

Как показали:

use strict; 
use warnings; 

my $string = q{s.w;;wq[]][.zaw"this is what I need"as.w;;wq[]][.zaw"this I do not need".w;;wq[]][.za}; 

if ($string =~ /"([^"]*)/) { 
    print "$1\n"; 
} 

Выходы:

this is what I need 

Или просто использовать split

my $desire = (split /"/, $string)[1]; 

Answer 2

регулярное выражение: /"([^"]*)"/:

my ($wanted_string) = $string =~ /"([^"]*)"/;