#!/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();
Как пропустить пропустить записи которые уже существуют уже, чтобы избежать прерывание работы скрипта