Help for this page

Select Code to Download


  1. or download this
      my $csv = Text::CSV_XS-New ({ binary => 1 });
      while (<>) {
          $csv->parse ($_);
          my @fields = $csv->fields ();
    
  2. or download this
      use IO::Handle;
      my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
      while (my $row = $csv->getline (*ARGV)) {
          my @fields = @$row;
    
  3. or download this
      my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/ });
      open my $io, "<", $file or die "$file: $!";
      while (my $row = $csv->getline ($io)) {
          my @fields = @$row;