Text::CSV_XS?????W???[?????g????????

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";
  }