Why not use something like DBD::AnyData to ease your burden. I renamed your files to search1.idx and search2.idx ... it is important that you put a '1' in the first file in order to be able to "generically" loop each search file with the same code. You also need to add column headers to each of the tab delimited files like so:
id name description url 20660 Gekko Gear Selection of winter sports apparel. www.gekkogear.com/Then, try this code:
Yes, that is magic. :) Now, i merely Dumped the resulting array reference of URL's to STDOUT, you said that you need to store them in seperate arrays ... but i don't even see why you store what you are searching in two seperate files in the first place ... this should get you going though.use strict; use warnings; use Data::Dumper; use DBI; my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):'); for (1,2) { $dbh->func("search$_", 'Tab', "search$_.idx", 'ad_catalog'); my $sth = $dbh->selectcol_arrayref(" SELECT url FROM search$_ WHERE description like '%Sport%' OR description like '%sport%' "); print Dumper $sth; }
jeffa
L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)
In reply to Re: Assigning Flat Files to Arrays
by jeffa
in thread Combining while statements
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |