Модератор: terminus
ProFTP писал(а):попробуй такКод: Выделить всё
@userdata = <USER>; foreach $_ (@userdata) { ($t1,$t2,$t3,$t4) = splite (/ /, $_); $dbh = do( qq{ INSERT INTO users(year,name,sname,phone) VALUES (?,?,?,?) }, undef, $t1,$t2,$t3,$t4 ) or die $dbh->errstr; }
Код: Выделить всё
($t1,$t2,$t3,$t4) = splite (/ /, $_);Код: Выделить всё
#!/usr/bin/perl
use DBI;
$db_type = 'mysql';
$db_host = ''localhost;
$db_name = '';
$db_user = '';
$db_pass = '';
$dbh = DBI->connect("DBI:$db_type:database=$db_name;host=$db_host", $db_user, $db_pass, {RaiseError => 1, PrintError => 1 } ) || die $DBI::errstr;
$filepath = "/usr/home/user/users.txt";
opendir (DIR, "$filepath");
@userfiles = sort readdir (DIR);
closedir(DIR);
foreach $file (@userfiles)
{
open(USER,"$filepath/$file");
@userdata = <USER>;
foreach $_ (@userdata) {
($t1,$t2,$t3,$t4) = splite (/ /, $_);
$dbh = do(
qq{ INSERT INTO users(year,name,sname,phone)
VALUES (?,?,?,?)
}, undef, $t1,$t2,$t3,$t4 ) or die $dbh->errstr;
}
$num++;
}
print "'$userdata[0]' \n";
$counth = $dbh->selectrow_arrayref(qq{SELECT COUNT(*) FROM users }, undef );
print "В таблице $counth->[0] пользователей, $num из которых только что было добавленно. \n\n";
Получилось, наконец то запустился код и все нормально добавляет!Мишаня писал(а):Попробую !)) но спасибо большое, очень помог ... Спасибо +++++ов тебе
Код: Выделить всё
#!/usr/bin/perl
use DBI;
$db_user = 'anonymous';
$db_pass = 'mysql';
$db_info = 'DBI:mysql:users:localhost';
$dbh = DBI->connect($db_info, $db_user, $db_pass);
$filepath = "/usr/home/user/local";
opendir (DIR, $filepath) or die print("Error open dir $!");
@userfiles = sort readdir (DIR);
closedir(DIR);
foreach $file (@userfiles)
{
open(USER,"$filepath/$file");
@userdata = <USER>;
foreach $_ (@userdata){
($t1,$t2,$t3,$t4) = split (/ /, $_);
close(USER);
$inserth=$dbh->do(qq{INSERT INTO users(year,name,sname,phone) VALUES (?,?,?,?)}, undef,$t1,$t2,$t3,$t4) or die $dh->errstr;
}
$num++;
}
$counth = $dbh->selectrow_arrayref(qq{SELECT COUNT(*) FROM users }, undef );
print "В таблице $counth->[0] пользователей, $num из которых только что было добавленно. \n\n";
создал каталог и в него один требовательный файл ...Столкнулся с проблемкой ... У меня в файле строки разного размера, если попадается строка меньше запроса то она просто не добавляется в базу ... кто знает как помочь?Мишаня писал(а): Теперь буду реализовывать дальше свою затейку
то есть?Мишаня писал(а):если попадается строка меньше запроса
Есть файл, например:zg писал(а):то есть?Мишаня писал(а):если попадается строка меньше запроса
БД имеет, например, 5 полей [name | do | where | mail | date ]Миша отправил на mail.ru 22.15.09
Миша получил от ramberl.ru
Код: Выделить всё
foreach $_ (@userdata){
($t1,$t2,$t3,$t4) = split (/ /, $_);
close(USER);
$inserth=$dbh->do(qq{INSERT INTO users(year,name,sname,phone)
VALUES (?,?,?,?)}, undef,$t1,$t2,$t3,$t4)
or die $dh->errstr;
}
Спасибо, дружище---nebo--- писал(а):Читая тему понял, что важно делать выборки: Кто, Куда, че и когда.... и все желательно в веб морде.
Возможно не так важно засовывать все логи в базу?
Если логи с постфикса, можно воспользоваться awstats'ом. Там уже эти скрипты на перле написаны, причем автоматически конвертируют почтовые логи а потом парсят. У меня такая штука стоит и довольно неплохо генерит отчеты по куче параметров. Засунул это дело в крон и можна смотреть актуальные данные ))), еще и графиков понарисовывает(мелочь, А приятно )))
Конечно, при таком размере лога можно или как-то отпимизировать работу скриптов (выберать только записи опред. года, месяца или еще чета) или посмотреть как они устроены для написания своего или не очень часто их запускать(зависит от машины).
Плюсом использования базы конечно есть то, что мона класно выбирать нужную информацию...тут уже на твое умотрение
P.S. awstats можно прицепить модулем к webmin' у, в твоем случае будет достаточно удобно
Просто сам хочу все это прочувствовать ... )))