在perl中读取双引号内的字符串

Question

我有一个包含这样的行的文件：

"pin1" Inpin; "pin2" outpin; "pin3" inoutPin;

some other string "pin4" inpin 

我想存储pin1，pin2，pin3，pin4（基本上是双引号内的单词）。有人可以请帮忙..？基本上一次只读一行并且只在双引号内抓取单词。我试图通过＆＃34;;＆＃34;分开一条线。但是从那时起它就不起作用了;＆＃34 ;;＆＃34;可能不会出现在所有行中。

谢谢！

Answer 1

join ', ' $str =~ /"([^"]*)"/g

Answer 2

试试这段代码：

    my $string = '"pin1" Inpin; "pin2" outpin; "pin3" inoutPin;`';


my @array;


while ( $string =~ /\"(.+?)\"/ )
{
    put (array, $1.),
    $string =~ s/\"$1\"//;
}