Perl - Сканирование файлов CSV на наличие строк, соответствующих заданным пользователем критериям?

Question

Я пытаюсь написать / выучить простой парсер Perl для некоторых имеющихся у меня CSV-файлов, и мне нужна помощь.

В каталоге у меня есть ряд индексированных по дате CSV-файлов в формеText-Date.csv.Дата указывается в форме Месяц-ДД-ГГГГ (например, январь-07-2011).Для каждого дня недели создается файл CSV.

Сценарий Perl должен открывать каждый файл, искать определенную строку, которая соответствует введенным пользователем критериям, и возвращать эту строку.Каждая строка представляет собой данные о цене акций с различными акциями в разных строках.Сценарий должен возвращать цену конкретной акции (например, IBM) за все даты создания CSV.

У меня есть синтаксический анализатор, работающий для определенной CSV / даты, которую я выбираю, но я хочу быть в состоянии выделить строку во всех CSV.Также, когда я печатаю цену IBM для каждого датированного CSV, я хочу отображать дату рядом с ценой (например, январь-07-2011 IBM 147.93).

Можете ли вы помочь мне сделать это?

Answer 1

Если ваш вопрос заключается в том, как сканировать несколько файлов и запускать некоторые функции для каждого из них, вам, вероятно, понадобится File :: Find .Для разбора CSV обязательно используйте Text :: xSV , а не пользовательский анализатор.Анализ CSV - это не только вызов split (",").

Answer 2

Для анализа файлов CSV используйте модуль Text :: CSV .

Сложнее решить, как вы собираетесь применять критерии - вам нужно определить, что пользователь указывает, и решить, как перевести это в код Perl, который правильно оценивает условие.