I  have an array called @data.  I want to check each element in the array for a value, and if that value exist, I wan to delete it

I could try

@data =~ ~ s/$postalCode//;

### creates an error about private arrays

Maybe this

for my $dat(@data){
$dat=~ s/$postalCode//;
}

The above code does not modify the array at all.  We could create a temporary array and then pop puch and reassign upon going through each element.  That could be time consumming especially if I have 250,000 arrays.  So let's look at map. Charles Galpin has written a pretty simple tutorial on using map here http://articles.techrepublic.com.com/5100-10878_11-1044685.html.

So after reading Charles' article,  I try .

map {s/$postalCode//} @data;

Just to a make sure it works I ran the a line of data through it.  You should always check yoru code on small sets of data. The test and results are below.

Hope this helps in your data munging

I had several mdb files that required the same update to one field.  So I use the following is a snippet of the code I was using.

my $sql = "update [Contact] set Contact.Source ='BioCRM'";
 my $sth = $dbh->prepare($sql) or die(
 "Can't prepare SQL statement. Perl
 + says $!, DBI says ". $dbh->errstr. "\n");
 $sth->execute($sql) or die "Couldn't execute statement: " . $sth->errstr;

Kept getting the following error

DBD::ADO::st execute failed: Bind Parameter 1 outside current range of 0. at
Z:\UpdateAllContactSource.pl line 33, <> line 1.
Couldn't execute statement: Bind Parameter 1 outside current range of 0. at
Z:\UpdateAllContactSource.pl line 33, <> line 1.

At first I searched the Internet for a solution, I updated all my DBD drivers and it still did not work.  It is funny the number of articles you can find when you search for DBD::ADO::st execute failed:

488 on Google.

None of them helped.  My error is in this line:

$sth->execute($sql) or die "Couldn't execute statement: " . $sth->errstr;

When execute is used in this way it does not take any parameters

The fix

$sth->execute() or die "Couldn't execute statement: " . $sth->errstr;

Hope this helps someone else

 If not try using the do syntax for updates and inserts

$dbh->do($sql) or die(
 "Can't execute SQL statement. Perl
+ says $!, DBI says ", $DBI::errstr, "\n"
);

Keep Coding

-

Jeremy