[LUGOS] Obdelovanje dn v perlu

[matjaz.demsar at lj-mlek.si]

Pozdravljeni!

Pišem skripto, ki bi prebrala vrednosti iz cvs datoteke in jih vpisala v 
Mysql bazo. Skripta bere vrstico za vrstico in podatke piše v bazo. Zgleda 
nekako takole:

#!/usr/bin/perl -w
use DBI;

$dbh = DBI->connect('DBI:mysql:lmprint;host=myhost', 'myuser', 'mypass', { 
RaiseError =>1 });

open(F1,"/tmp/test.csv");
        while($line = <F1>) {
                if ($line =~ 
/^([\w\-\_+])\.\S+\,(\d+)\,(\d+)\,(\d+)\.\d+/) {
                $insert = "INSERT INTO report_current_month(printer, jobs, 
pages, cost) VALUES('$1','$2','$3','$4')";
                $sth = $dbh->prepare($insert);
                $sth->execute;
                }
}
close(F1);



Lep pozdrav,

Matjaž Demšar, MCNE
UnistarLC, d.o.o.
SPPU, Ljubljanske mlekarne, d.d.
matjaz.demsar at lj-mlek.si
+386 (1) 588 1 831
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://liste2.lugos.si/pipermail/lugos-list/attachments/20060706/52c3baed/attachment.htm