LINUX.ORG.RU
решено ФорумAdmin

perl и mysql

 ,


0

1

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Digest::SHA qw(sha256_hex);

open (DATA, «/path/list_mig.txt») or die $!;

my $dbh = DBI->connect(«DBI:mysql:database=server;
host=localhost»,
«user», «password»,
{'RaiseError' => 1});

my $sth = $dbh->prepare(«INSERT INTO virtual_users (domain_id,
email, password, commentary)
VALUES ( (SELECT id FROM virtual_domains WHERE
name='example.org'),?,?,?)»);

while(<DATA>) {
chomp;
my ($email,$commentary,$password) = split /,/;

$password = crypt($password,'$5$');

$sth->execute($email, $password, $commentary);
}

$dbh->disconnect();

Как пропустить пропустить записи которые уже существуют уже, чтобы избежать прерывание работы скрипта

my $dbh = DBI->connect(«DBI:mysql:database=server;host=localhost», «user», «pw», {'RaiseError' => 0, 'PrintError' => 0, 'AutoCommit' => 1,}) or die «Unable to open database:\n\n$DBI::errstr\n»;

tooncheg ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.