#!/usr/bin/perl -w

# Данный пример удаляет все поддомены домена test.com

use strict;

use dedikit;

# логинимся

my $DB_ID = YOUR_ID;
my $DB_LOGIN = 'admin';
my $DB_PASSWORD = YOUR_PASSWORD;

dedikit::login(id => $DB_ID, login => $DB_LOGIN, password => $DB_PASSWORD);
if($dedikit::ERROR) {
	print "Error occured ($dedikit::ERROR)\n";
	exit 1;
}

dedikit::delete(table => 'hosts',
  where => [ { op => 'REGEX', name => 'name', value => '^.*\.test\.com$' } ] );

if($dedikit::ERROR) {
	print "Error occured ($dedikit::ERROR)\n";
	exit 1;
}