Perl: analyse av variabler

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

Jeg har følgende skript:

Code:

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

Dette skriptet leser i alle CSV-filer i gjeldende katalog og skriver ut dato, tid og fullstendige innholdet på skjermen.

Et filnavn består av et navn, en dato, en tid og et suffiks ". CSV". Så et filnavn kunne foo_20080909_120345.csv
Ved å kjøre denne, holder @ dt utvalg:
- $ DT [0] \u003d "foo"
- $ Dt [1] \u003d 20080909
- $ Dt [2] \u003d 120345

Så linje 9 (print $ dt [1]. $ Dt [2]. "$ _ \ N") gir linjer av følgende:
"20080909 120345 ,[... resten av posten ...]"
der den skal gi:
"2008-09-09 12:03:45 ,[... resten av posten ...]"

Hvordan angir jeg bindestreker ("-") og kolon (":") på de rette stedene uten å bruke contrived kode som:
substr ($ dt [1], 0, 4). "-". substr ($ dt [1], 4, 2). "-". substr ($ dt [1], 6, 2)
og det er bare for datoen.

Takk på forhånd

Mer UNIX og Linux Forum Emner Du kan finne nyttig
Tråd	Tråd startet	Forum	Svar	Siste innlegg
XML-analysefeil i perl	bishweshwar	UNIX for Advanced & ekspertbrukere	1	05-30-2007 10:59
HTML analyse av PERL	avik1983	Shell programmering og Skripting	3	02-23-2007 09:25
Analysere og få verdier av variablene	Rekha	Shell programmering og Skripting	3	08-01-2006 10:39
PERL - Analyseresultater Crystal Reports	srinivay	Shell programmering og Skripting	0	05-12-2005 07:55
Konvertering av bash analyseproblemer script til perl?	cstovall	Shell programmering og Skripting	2	10-13-2004 10:33

Thread Tools	Søk i denne tråden
Vis Printable Version Email denne siden	Søk i denne tråden: Avansert søk
Visningsmoduser	Ranger denne tråden
Switch to Linear Mode Bytt til hybridmodus Gjengede Mode	Ranger denne tråden:


	Powered by