It's hard to say, but it seems like you want something like

for my $c(0..100) {
   # do something with $c;
}
[download]

Sorry, here is the code I am testing


#!/usr/bin/perl -w
use strict;

use DBI;

# Set up database connection
my $user = "content";
my $pass = "content";


my $dbh = DBI->connect("DBI:ODBC:LocalServer",$user, $pass, {RaiseErro
+r => 1});

my $dbh2 = DBI->connect("DBI:ODBC:LocalServer",$user, $pass, {RaiseErr
+or => 1});

my $new_id = 0;

my $sql = "select id from request";


my $sql2 = '';

my $sth = $dbh->prepare($sql);

my $sth2 = '';

my $sql_data = ($sth->execute() || die $sth->errstr);


while (my $pointer = $sth->fetchrow_hashref) {

$new_id++;

$sql2 = "UPDATE request SET ID='$new_id'";

$sth2 = $dbh2->prepare($sql2);

$sth2->execute() || die $sth2->errstr;

}
[download]

First, you don't need two database handles - you can almost certainly just use two statement handles on the same database handle. Second, don't put quotes around '$new_id' -- quotes are for delimiting strings in SQL, not for numbers. Third, don't do the prepare inside the loop, the whole point is prepare only needs to be done once. Fourth, you don't need ||die $sth2->errstr, you have RaiseError on. Fifth, what are you expecting to happen with $sql_data and $pointer, you never use them? You better describe what you want to happen. But thanks for the code :-).

The problem is not with code, but the SQL.

You're setting the ID to $new_id for EVERY row. That means you're only seeing the last result.
--------------
It's sad that a family can be torn apart by such a such a simple thing as a pack of wild dogs

"UPDATE request SET ID='$new_id'";
[download]

Always sets ALL rows in request to $new_id. You should use some kind of WHERE clause to limit the effect, but that might not help you here. Also, it isn't exactly good practice to change the primary keys of existing rows (I'm assuming request.id is the primary key).

Maybe you want to skip the SELECT and just do 1 query like

UPDATE request set ID=ID+1;
[download]

updated: that last piece of code doesn't do what is wanted.
"What should it profit a man, if he should win a flame war, yet lose his cool?"

Update: You could also do it by inserting into a new table with values from the old one, like this:

use strict;
use warnings;
use DBI;
 
# Set up database connection
my $user = "content";
my $pass = "content";
 
 
my $dbh = DBI->connect("DBI:ODBC:LocalServer",$user, $pass, {RaiseErro
+r => 1});
 
my $new_id = 0;
 
# Assumes the new table request2 has the same layout as the first one.
# The ID should be declared as a primary key for this table.
# I assume it was not declared that way in table request.
my $sth = $dbh->prepare(q{SELECT * FROM request});
 
# There should be a placeholder for each value in the table.
my $sth2 = $dbh->prepare(q{INSERT INTO request2 VALUES(?,?,?)});
 
my $sql_data = ($sth->execute() || die $sth->errstr);
 
while (my $pointer = $sth->fetchrow_arrayref) {
   # Assumes the ID field is the first field.
   $pointer->[0] = $new_id;
   $sth2->execute(@{$pointer});
   $new_id++;
}
[download]

In summary, it was a bad mistake to define an SQL table without unique keys, and the best way to recover is by getting the data into a new table.