Parsing CSV/текстовый файл с использованием Perl

Question

Я пытаюсь разобрать CSV-файл с помощью perl, мне нужно прочитать, добавить новую строку (как в пустой файл, так и в файл, уже содержащий данные) и удалить строку/строки путем сопоставления определенного значения, я хотел сделать это, используя встроенный модуль, который не хочет устанавливать внешний новый модуль.

Раньше я пытался с помощью xml-файла, но для установки XML :: Twig или XML :: LibXML мне не хотелось.

Возможно ли это через csv или текстовый файл.

Answer 1

Вы должны использовать модуль Text :: CSV. Если вы не хотите его устанавливать, вы остаетесь с разделенным и сложным управлением.

Смотрите этот учебник по Габора: How to read a CSV file using Perl?

Answer 2

Вы можете разобрать CSV файл в формате XML без установки нового модуля. Вот так:

use warnings; 
use strict; 
use Data::Dumper; 

my $CSVfile="customer.csv"; 


print "Input Csv file: $CSVfile \n"; 


my ($arrRef,$keys)= convertCsvToHash($CSVfile); 
print Dumper($arrRef); 


sub convertCsvToHash{ 
    my $file = shift; 

    open(FILE, "$file"); 
    my @arr = <FILE>; 
    close(FILE); 

    my @hashArry; 
    chomp($arr[0]); 
    my @keys = split(',',$arr[0]); 

    for my $i(1..$#arr){ 
      chomp($arr[$i]); 
      my @splitRec = split(',',$arr[$i]); 

      my $hash = {}; 
      for my $j(0..$#keys){ 
        $hash->{$keys[$j]} = $splitRec[$j] 
      } 
      push @hashArry,$hash; 
    } 
    return \@hashArry, \@keys; 
}