Perl: parsing variabler

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

Jeg har følgende script:

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 script læser i alle csv-filer i det aktuelle bibliotek og udskriver den dato, tid og komplette indhold til skærmen.

Et filnavn er sammensat af et navn, en dato, en tid og et suffiks ". Csv". Så et filnavn kunne foo_20080909_120345.csv
Ved at køre dette, @ dt array ejer:
- $ Dt [0] \u003d "foo"
- $ Dt [1] \u003d 20.080.909
- $ Dt [2] \u003d 120.345

Så linje 9 (print $ dt [1]. $ Dt [2]. ", $ _ \ N") giver linjer af følgende:
"20080909 120345 ,[... resten af posten ...]"
hvis det skal give:
"2008-09-09 12:03:45 ,[... resten af posten ...]"

Hvordan kan jeg angive bindestreger ("-") og koloner (":") på de rigtige steder uden brug af kunstig kode såsom:
substr ($ dt [1], 0, 4). "-". substr ($ dt [1], 4, 2). "-". substr ($ dt [1], 6, 2)
og det er bare for dato.

Thanks in advance

Mere UNIX og Linux Forum Emner du måske kan finde Helpful
Tråd	Thread Starter	Forum	Svar	Last Post
XML-parsingfejl i perl	bishweshwar	UNIX for Advanced & Ekspertsøgning Brugere	1	05-30-2007 11:59 PM
HTML parsing af PERL	avik1983	Shell Programmering og Scripting	3	02-23-2007 09:25 AM
Analysering og få værdier i variabler	Rekha	Shell Programmering og Scripting	3	08-01-2006 11:39 AM
PERL - Analysering Crystal Reports	srinivay	Shell Programmering og Scripting	0	05-12-2005 08:55 AM
Omdannelse af bash parsing script til perl?	cstovall	Shell Programmering og Scripting	2	10-13-2004 11:33 PM

Thread Tools	Søg denne tråd
Vis Printvenlig Version Email denne side	Søg denne tråd: Avanceret søgning
Display Modes	Bedøm denne tråd
Switch to Linear Mode Switch to Hybrid Mode Gevindskårne Mode	Bedøm denne tråd:


	Powered by