regex - perl 分割関数の例外条件

Question

perl で分割する必要があります。以下の例を見てください。

"john","David2,mick",25,"12-12-2009","male"

引用符で囲まれていない各コンマ (,) でこのレコードを分割する必要があります。

予想される出力は次のとおりです。

john 
david2mick 
25 
12-12-2009
male

これで私を助けてくれませんか。

Answer 1

Perl 5 のコア モジュールであるを使用できます。これは、ここにある適切な csv データではないと仮定Text::ParseWordsすると、軽量のオプションです。Text::CSV

use strict;
use warnings;
use Data::Dumper;
use Text::ParseWords;

my $str = qq("john","David2,mick",25,"12-12-2009","male");
my @list = quotewords(',', 0, $str);

print Dumper \@list;

出力：

$VAR1 = [
          'john',
          'David2,mick',
          '25',
          '12-12-2009',
          'male'
        ];