Perl: parsing változó

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

Én a következő szkriptet:

Kód:

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

Ez a szkript beolvassa az összes csv fájl az aktuális könyvtárban és kiírja a dátumot, az időt és a teljes tartalmának megjelenítése a képernyőn.

A fájlnév áll egy név, dátum, idő és a suffix ". Csv". Tehát egy fájlnév lehet foo_20080909_120345.csv
Amikor ez a futás, a @ dt tömb rendelkezik:
- $ Dt [0] \u003d "valami"
- $ Dt [1] \u003d 20.080.909
- $ Dt [2] \u003d 120.345

Szóval line 9 (print $ dt [1]. $ Dt [2]. ", $ _ \ N") hozama vonalai a következők:
"20080909 120345 ,[... többi a rekord ...]"
ha el kellene érnie:
"2008-09-09 12:03:45 ,[... többi a rekord ...]"

Hogyan írjon be kötőjelet ("-") és kettőspontot (":") a megfelelő helyre konstruált kód használata nélkül is, mint például:
substr ($ dt [1], 0, 4). "-". substr ($ dt [1], 4, 2). "-". substr ($ dt [1], 6, 2)
és ez csak a dátumot.

Köszi előre

Több, UNIX és Linux fórum témák Ön által talált Hasznos
Szál	Thread Starter	Fórum	Válaszok	Utolsó hozzászólás
XML-feldolgozási hiba a perl	bishweshwar	A UNIX a fejlett és szakértői Felhasználók	1	05-30-2007 10:59 PM
HTML parsing a PERL	avik1983	Shell programozás és Scripting	3	02-23-2007 09:25 AM
Feldolgozás és szerzés változók értékei	Rekha	Shell programozás és Scripting	3	08-01-2006 10:39 AM
Perl - Feldolgozás Crystal Reports	srinivay	Shell programozás és Scripting	0	05-12-2005 07:55 AM
Átalakítása bash parsing a perl script?	cstovall	Shell programozás és Scripting	2	10-13-2004 10:33 PM

Téma eszközök	Keresés a téma
Show Nyomtatható verzió Küldés e-mailben	Keresés a téma: Részletes keresés
Megjelenítési módok	Rate this thread
Váltás Linear Mode Switch to Hybrid Mode Threaded Mode	Rate this thread:


	Powered by