use strict; use Data::Sync; use DBI; my $db1 = DBI->connect("DBI:SQLite:dbname=db1"); my $db2 = DBI->connect("DBI:SQLite:dbname=db2"); my $sync = Data::Sync->new(); $sync->source($db1,{select=>"SELECT NAME,POSTALADDRESS,TELEPHONE FROM sourcetable WHERE CUSTOMERNO < 1000"}); $sync->target($db2,{table=>"targettable",index=>"FULLNAME"); $sync->mappings(NAME=>"FULLNAME", POSTALADDRESS=>"ADDRESS", TELEPHONE=>"HOMEPHONE"); $sync->run();