# > CSV ? Was ist das ? :)
# CommaSeparatedValues - cum ar veni, rows separate de "\n", cols separate de
# ","
Atunci poate vrei sa faci ceva de genul asta: (baza de date tot test o
cheama si tabela tot blah se numeste)
#!/usr/bin/perl
use DBI;
my $db=DBI->connect("DBI:mysql:test:localhost", <user>, <password>);
sub db_exec {
my $db_exec=$_[0]->prepare($_[1]);
die("Eroare SQL.") if(!$db_exec->execute);
$db_exec->finish;
}
open(F, "<fisier");
for(<F>) {
my @dbe=split(/,/);
db_exec($db, "insert into blah values('$dbe[0]', '$dbe[1]', '$dbe[2]');
}
close(F);
$db->disconnect;
# (ar trebui sa transfere valorile din fisier in baza de date...)
# Daca in fisier sunt chestii de genul "a, b" (pauza intre , si b), poate
# ar fi util sa punem "/,[\s\t]*/" sau chiar "/[\s\t]*,[\s\t]*/" la
# split...
# PS: daca foloseam "db_query"-ul din exemplul anterior ne faceam cu o
# eroare :) Daca doar executi comenzi si nu te astepti la rezultate, e bine
# sa nu folosesti db_query, care asteapta rezultatele comenzii.
# > N-ar trebui sa fie foarte greu de extins scriptul.
# Merge greu tare in text...
D-aia ti-am dat scriptulet de transferat CSV -> DB :)
# > # Ar trebui sa trimita un mail fiecarui "user <email>".
# > # Ce trebuie facut cu ID-ul ? More detail, please :)
# > #
# > # PS: Sper ca merge, ca nu l-am testat ;)
# Uhh.. saru'mana!
# Ma apuc acu' de el... am stat toata noaptea trecuta sa citesc docu' de la
# mysql, la munca... (lucrez la nebuni :))... da' nu mi-e suficient timpul.
# Sa-mi zici ce bere bei!!!
Hehe :) Mai bine zi-mi daca ai vreo nelamurire :)
# Codrut
--
Radu <[EMAIL PROTECTED]> www.littledragon.f2s.com
It is the weak who are cruel, only the stong can be truly gentle.
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
