Question

在我正在处理的程序中，我尝试接收txt文件，然后打印包含在一对引号中的txt位。

假设我已经接受了txt文件并将其放入一个数组中，每行作为一个数组元素，这就是我假设可以工作的，但是没有运气：

txt file contents:
Lorem ipsum dolor sit amet
consectetur "adipisicing elit"
sed "do" eiusmod tempor incididunt
ut "labore et dolore" magna aliqua

CODE:
foreach(@arr)
{
    print $1 if /("*")/g;
}

Output: 
""

Answer 1

 ...
foreach (@arr) {
    print $1 for /(".*?")/g;
}
 ...

Answer 2

#!/usr/bin/perl

use strict;
use warnings;

foreach(<DATA>) {
    print $1 if /(".*")/;
}

__DATA__
txt file contents:
Lorem ipsum dolor sit amet
consectetur "adipisicing elit"
sed "do" eiusmod tempor incididunt
ut "labore et dolore" magna aliqua

打印Perl Regex匹配

2 个答案: