Всем привет. Помогите новичку кто может и у кого не отнимаю времени. Буду очень благодарен.
этот скрипт копирует всю базу в файл raport_db Как мне провирять поля name
из файла raport_db и on-line базы на наличие новых записей в поле name
посоветали работать с hash. Не могу разобраться

#!/usr/bin/perl -w
use DBI;
my $server = '222.12.123.124';
my $db = 'db';
my $username = 'ron' ;
my $password = 'ron123' ;
my $dbh = DBI->connect("dbi:mysql:$db:$server", $username, $password,  { RaiseError => 1 });

$query="SELECT DISTINCT name FROM contact";
$sth=$dbh->prepare($query) or die " Error query: $dbh->errstr\n";
$sth->execute() or die  "Error: $sth->errstr \n";

while (@row = $sth->fetchrow_array)     {
open(FILE, ">>/home/raport_db");

print FILE join("\t",@row)."\n";
print" ";
close FILE;
}

$rc=$sth->finish;
$rc=$dbh->disconnect;
exit 0;

• help please, ACCA, 22:44 , 06-Май-04, (1)