From: Wakou Aoyama <wakou@...>
Date: 1999-11-03T06:00:21+09:00
Subject: [ruby-list:18323] Re: [book] csv_split2

青山です。

On Wed, 3 Nov 1999 01:04:59 +0900,
Koretsugu Daigoro <tmmcross@hk.airnet.ne.jp> wrote:

> > csv_split(',"z","b",b,')
> > => ["", "b", "b", ""]

$ cat p
#!/usr/local/bin/perl
$source = ',"z","b",b,';
@csv = ();
push(@csv, $+) while $source =~
m/(?:^|,)(?:"((?:[^"]|"")*)"|([^,]*))/g;
print(join(":", @csv));

$ perl p
:b:b:

で、同じようですよ。

$ perl -v
This is perl, version 5.004_04 built for i386-linux


-- 
青山 和光 Wakou Aoyama <wakou@fsinet.or.jp>