Как обрабатывать встроенные строки в CSV-файлах в Perl?

Question

Я читаю CSV-файл, который был создан в Excel, причем первая строка является заголовком столбца. Один заголовок столбца содержит встроенную новую строку. Я хочу, чтобы игнорировать эту строку, но читая его линию за линией, как:

while (<IN>) { 
    ... 
    } 

будет рассматривать его в качестве новой линии, которая нарушит мой код (который я до сих пор не написано). Мой подход состоял в том, чтобы прочитать первую строку в массиве заголовков столбцов и обработать остальные строки по-разному.

Может ли быть регулярное выражение, которое я могу использовать где-то в while, который игнорирует новую строку, если это не последняя новая строка?

Или я должен подходить к этому по-другому?

Answer 1

Используйте один из модулей Perl, которые обрабатывают CSV, например Text::CSV_XS. В его документации показано, как обрабатывать встроенные новые строки. В общем, вы не хотите тратить свое время на запись другого анализатора CSV; займитесь более важными частями своей задачи!