<br><font size=2 face="sans-serif">Pozdravljeni!</font>
<br>
<br><font size=2 face="sans-serif">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:</font>
<br>
<br><font size=2 face="sans-serif">#!/usr/bin/perl -w</font>
<br><font size=2 face="sans-serif">use DBI;</font>
<br>
<br><font size=2 face="sans-serif">$dbh = DBI-&gt;connect('DBI:mysql:lmprint;host=myhost',
'myuser', 'mypass', { RaiseError =&gt;1 });</font>
<br>
<br><font size=2 face="sans-serif">open(F1,&quot;/tmp/test.csv&quot;);</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; while($line
= &lt;F1&gt;) {</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; if ($line =~ /^([\w\-\_+])\.\S+\,(\d+)\,(\d+)\,(\d+)\.\d+/)
{</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; $insert = &quot;INSERT INTO report_current_month(printer,
jobs, pages, cost) VALUES('$1','$2','$3','$4')&quot;;</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; $sth = $dbh-&gt;prepare($insert);</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; $sth-&gt;execute;</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; }</font>
<br><font size=2 face="sans-serif">}</font>
<br><font size=2 face="sans-serif">close(F1);</font>
<br>
<br>
<br><font size=2 face="sans-serif"><br>
Lep pozdrav,<br>
<br>
Matjaž Demšar, MCNE<br>
UnistarLC, d.o.o.<br>
SPPU, Ljubljanske mlekarne, d.d.<br>
matjaz.demsar@lj-mlek.si<br>
+386 (1) 588 1 831</font>