Path: ccsf.homeunix.org!ccsf.homeunix.org!news1.wakwak.com!nf1.xephion.ne.jp!onion.ish.org!news.daionet.gr.jp!news.yamada.gr.jp!newsfeed.media.kyoto-u.ac.jp!postnews2.google.com!not-for-mail
From: zero_infinity@mail.goo.ne.jp (zeroinfinity)
Newsgroups: fj.comp.lang.perl
Subject: Text::CSV_XS?????W???[?????g????????
Date: 7 Aug 2004 20:05:57 -0700
Organization: http://groups.google.com
Lines: 55
Message-ID: <4b3075c0.0408071905.7d4a9769@posting.google.com>
NNTP-Posting-Host: 219.202.244.191
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 8bit
X-Trace: posting.google.com 1091934357 22767 127.0.0.1 (8 Aug 2004 03:05:57 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sun, 8 Aug 2004 03:05:57 +0000 (UTC)
Xref: ccsf.homeunix.org fj.comp.lang.perl:90

Text::CSV_XS???W???[?????g?¨???????????G???[?????????B

http://www.perldoc.com/perl5.6.1/lib/Text/CSV_XS.html#NAME?iPerldoc.com?????j
???T???v???v???O?????????????????????A

?????G???[???o?????B???????W???[???????????g??????????????????????

Can't locate Text/CSV_XS.pm in @INC (@INC contains:
/usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at
example.pl line 1.
BEGIN failed--compilation aborted at example.pl line 1.

?????X???b?h???????????????????l???¢???????????????????????????????????B
???????¨???¢???????B

%perl -v
This is perl, v5.8.0 built for i386-linux-thread-multi

?T???v???v???O????


 require Text::CSV_XS;

  my $csv = Text::CSV_XS->new;

  my $column = '';
  my $sample_input_string = '"I said, ""Hi!""",Yes,"",2.34,,"1.09"';
  if ($csv->parse($sample_input_string)) {
    my @field = $csv->fields;
    my $count = 0;
    for $column (@field) {
      print ++$count, " => ", $column, "\n";
    }
    print "\n";
  } else {
    my $err = $csv->error_input;
    print "parse() failed on argument: ", $err, "\n";
  }

  my @sample_input_fields = ('You said, "Hello!"',
			     5.67,
			     'Surely',
			     '',
			     '3.14159');
  if ($csv->combine(@sample_input_fields)) {
    my $string = $csv->string;
    print $string, "\n";
  } else {
    my $err = $csv->error_input;
    print "combine() failed on argument: ", $err, "\n";
  }