open(GRAB, "Hotel_Description_Cut_1.txt") or die "Error reading Hotel_Description_Cut_1.txt. Reason: $!";
my ($old_id,$image_name,$field);
my $i = 0;
my $count = 0;
while (<GRAB>) {

chomp;

my $_update;
my @cut = split /\|/, $_;

# skip the beginning line....
if (/HotelID/) { next; }

#print "$count: HotelID: " . $cut[0] . "\n";

unless ($count % 10) { print "> $count\n"; }

my $hotel_id = $cut[0];
my $desc = $cut[1];

undef @cut;

$count++;

if ($DB->table('Links')->count( { HotelID => $hotel_id } )) {
$DB->table('Links')->update( { Description => $desc } , { HotelID => $hotel_id } ) or die $GT::SQL::error;
}

}
close(GRAB);

open(GRAB, "Hotel_Description.txt") or die "Error reading Hotel_Description.txt. Reason: $!";
my ($old_id,$image_name,$field);
my $i = 0;
my $count = 0;
my $pushed;
my @_ids;
while (<GRAB>) {

chomp;

my $_update;
my @cut = split /\|/, $_;

# skip the beginning line....
if (/HotelID/) { next; }

push(@_ids,$cut[0]);
$pushed->{$cut[0]} = $cut[1];

unless($count % 1000) { print "Reading IDs group: $count \n"; }

$count++;

}
close(GRAB);


my $count = 0;
foreach (@_ids) {

if ($DB->table('Links')->count( { ID => $_ } )) {
$DB->table('Links')->update( { Description => $pushed->{$_} } , { ID => $_ } ) or die $GT::SQL::error;
}
unless($count % 100) { print "Writing: $count \n"; }
$count++;

}