Perl: analisar variáveis

Figaro · #1 (**permalink**) 07-16-2008

Tenho o seguinte script:

Código:

#!/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);
}

Este script lê em todas as csv no diretório atual e imprime a data, a hora eo conteúdo completo a tela.

Um arquivo é composto de um nome, uma data, uma hora e um sufixo ". Csv". Portanto, um arquivo pode ser foo_20080909_120345.csv
Ao executar este, o array @ dt detém:
- $ Dt [0] \u003d "foo"
- $ Dt [1] \u003d 20080909
- $ Dt [2] \u003d 120345

Então linha 9 (print $ dt [1]. $ Dt [2]. ", $ _ \ N") rendimentos das seguintes linhas:
"20080909 120345 ,[... resto do registro ...]"
onde deveria rendimento:
"2008/09/09 12:03:45 ,[... resto do registro ...]"

Como faço para entrar ("-") traços e cólons (":") à direita lugares sem usar código artificial, tais como:
substr ($ dt [1], 0, 4). "-". substr ($ dt [1], 4, 2). "-". substr ($ dt [1], 6, 2)
e que é apenas para a data.

Thanks in advance

Mais UNIX e Linux Fórum Tópicos Você pode achar Helpfull
Fio	Thread Starter	Fórum	Respostas	Última postagem
xml parsing erro no perl	bishweshwar	UNIX & avançada para usuários experientes	1	05-30-2007 11:59
HTML parsing por PERL	avik1983	Programação Shell Script e	3	02-23-2007 09:25
Parsing e obter valores das variáveis	Rekha	Programação Shell Script e	3	08-01-2006 11:39
Perl - Parsing Crystal Reports	srinivay	Programação Shell Script e	0	05-12-2005 08:55
Conversão de bash script para analisar perl?	cstovall	Programação Shell Script e	2	10-13-2004 11:33

Thread Tools	Pesquisar este Thread
Show Printable Version Enviar esta página	Pesquisar este Thread: Pesquisa Avançada
Display Modes	Esta taxa Thread
Mude para o Modo Linear Switch to Hybrid Mode Threaded Mode	Esta taxa Thread:


	Powered by