Perl: парсинг переменных

FIGARO · #1 (**Постоянная ссылка**) 07-16-2008

У меня следующий сценарий:

Код:

#!/usr/bin/perl -w

@files = <*.csv>;
foreach $file (@files) {
  open(FH, $file);
  my @dt = split(/_|.csv/, $file);
  while (<FH>) { 
    chomp;
    print $dt[1] . $dt[2] . ",$_\n";
  }
  close(FH);
}

Этот сценарий читает в CSV-файлов в текущей директории и печатает дату, время и полное содержимое экрана.

Имя файла состоит из имени, дате, времени и суффикса ". CSV". Так что имя файла может быть foo_20080909_120345.csv
При запуске этого, @ DT массив имеет:
- $ DT [0] \u003d "Фу"
- $ DT [1] \u003d 20080909
- $ DT [2] \u003d 120345

Так линия 9 (печать $ DT [1]. $ DT [2]. ", $ _ \ N") дает строк следующее:
"20080909 120345 ,[... оставшуюся часть записи ...]"
, где она должна принести:
"2008-09-09 12:03:45 ,[... оставшуюся часть записи ...]"

Как я могу вступить ("-") тире и двоеточие (":") на правильном месте без использования искусственных кодов, таких как:
substr ($ DT [1], 0, 4). "-". substr ($ DT [1], 4, 2). "-". substr ($ DT [1], 6, 2)
и это только на сегодняшний день.

Спасибо заранее

Подробнее UNIX и Linux Темы форума можно найти полезные
Нить	Резьба для начинающих	Форум	Ответы	Последнее сообщение
Ошибка разбора XML в Perl	bishweshwar	UNIX перспективных И опытных пользователей	1	05-30-2007 11:59 PM
HTML парсинга на PERL	avik1983	Shell программирование и сценарии	3	02-23-2007 09:25 AM
Разбор и получения значений переменных	Rekha	Shell программирование и сценарии	3	08-01-2006 11:39 AM
PERL - Разбор Crystal Reports	srinivay	Shell программирование и сценарии	0	05-12-2005 08:55 AM
Конверсия Баш парсинга сценарий Perl?	cstovall	Shell программирование и сценарии	2	10-13-2004 11:33 PM

Резьба Инструменты	Искать в этом Thread
Показать Версия для печати Email эта страница	Искать в этом Thread: Расширенный поиск
Режимы дисплея	Оценить эту ветку
Переход к линейной режим Переключиться на гибридном режиме Режим Нитевидный	Оценить эту ветку:


	Powered By