Создайте файл CSV в perl

Привет, ребята, у меня есть сценарий, который берет 9 строк из столбца. И тогда я должен сохранить их в новом CSV-файле и в формате csv. Я уже пробовал Class :: CSV, но потому что я новичок в perl, я не смог передать строки, потому что их некоторые данные изменяются, что происходит до того, как я сохраню их в этих строках.Создайте файл CSV в perl

Так что я надеюсь, что вы можете дать мне пример для начала.

my $csv = Class::CSV->new(
    fields   => [voornaam/achternaam], 
    line_separator => "\r\n"; 
    ); 


$csv->add_line({ 
     userid => $voornaam, 
     username => $achternaam 


});

Я также попытался это и он не смог работать :(

my $csv = Text::CSV->new(); 

       $csv->column_names('gebruikernaam','Voornaam','achternaam','Wachtwoord','Telefoongebruiker','Telefooncode','SMS','telefoonnummer1','telefoonnummer2','telefoonnummer3','groep'); 
       open $fh, ">", "file.csv" or die "new.csv: $!"; 
       //... 
       $csv->print ($fh, [$gebruiker, $voorltr, $achternm, $password, $placeholder, $placeholder, $functioncode, $function, $SMS, $telefoon1, $telefoon2, $telefoon3, $groep]); 
       //... 
       close $fh or die "$!";

источник

2014-01-17 Brein

Класс :: CSV, вероятно, не тот модуль, который вы хотите - он использует Text :: CSV, и вы тоже должны. Я сделаю вам пример через минуту. – tangent

Вам не нужен модуль для сохранения вещей в формате csv, если вы этого не хотите. Просто разделяйте поля запятыми, точками с запятой, табуляторами и т. Д. И сохраняя файл как .csv, выполняет эту работу. – DeVadder

@DeVadder модуль будет обрабатывать экранирование и цитирование для вас, поэтому я бы посоветовал использовать один – tangent

Я не знаком с классом :: CSV, но синопсис на metacpan Class::CSV дает пример.

В частности вам нужно что-то вроде

fields   => [ qw/voornaam achternaam/ ],

Подробнее ...

qw/ / создает слова массива в строке, которую вы предоставляете. Таким образом, qw/voornaam achternaam/ эквивалентен ("voornaam", "achternaam")
[] создает ссылку на этот массив.

источник

2014-01-17 14:18:16 justintime

Создайте файл CSV в perl

ответ

Смежные вопросы