open(TMPFILE, "page.html") or die("Can't open page.html: $!")
my($data, $data2);
{
  local $/;
  local $_  = <TMPFILE>;
  ($data)   = /'(\d{3})wordONE/;
  ($data2)  = /(\d{3})wordTWO/;
}
close(TMPFILE);
[download]

_________
broquaint

1. given us a sample of the data file you are working with
2. shown us what you really want out of that data

open TMPFILE,'page.html' or die "Can't open: $!";
my $data = do {local $/;<TMPFILE>};
my @data = $data =~ /(\d{3})word/g;
print "$_\n" for @data;
[download]

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)

Your while loops are oddly constructed. You are discarding the first line after chomping it and then slurping the rest. Each while loop only runs once.

Do you mean to do something like this?

open TMPFILE, "< page.html"
    or die "Cant open: ", $!;
my (@data, @data2);
while (<TMPFILE>) {
    push @data, $1 if /'(\d{3})wordONE/;
    push @data2, $1 if /(\d{3})wordTWO/;
}
close TMPFILE;
[download]

(Added) Thanks, jeffa, for spotting a typo in the code. Repaired.

After Compline,
Zaxo

Thanks for all the responses. I used "join" because I was fetching something that covered two lines. I will now try all your suggestions.

What have you tried? In what way does it not work?

Does this do what you mean:

open(TMPFILE,"<page.html") || die "Cant open: $!";
while (<TMPFILE>) 
{
    chomp; 
    my $myFile = join('',<TMPFILE>);

    if ($myFile =~ /'(\d{3})wordONE/){
        $data = $1;
    }

    if ($myFile =~ /(\d{3})wordTWO/) {
        $data2 = $1;
    }
  }
close TMPFILE;
[download]

You can combine the two if statements into an if .. elsif to speed things up slightly if you assume that no line will match both your patterns.

Update: While this does combine your two while loops I don't really expect this to do anything sensible (are you sure it works in the version that you had?)

It should be just a case of discarding all lines which are the same, and importing the others into the first while statement: open(TMPFILE,"<page.html") || die "Cant open: $!";
while (<TMPFILE>)
{
chomp;
my $myFile2 = join('',<TMPFILE>);

    if ($myFile2 =~ /(\d{3})wordTWO/)
    {
      $data2 = $1;
    }
[download]

C.

open(TMPFILE,"<page.html") || die "Cant open: $!";
my $myFile = join('', map {chomp;$_} <TMPFILE>);
my ($data1, $data2) = $myFile =~ /'(\d{3})wordONE.*?(\d{3})wordTWO/;

print "$data1:$data2\n";
[download]

use Fcntl qw(:DEFAULT :flock);
use CGI;
use CGI::Carp qw(fatalsToBrowser);
[download]

20645     CJ Sports    Sportswear and equipment retailer specialising 
+in rugby, hockey, netball and cricket.     Full product details and o
+rdering available online.                www.cj-sports.co.uk/
    
20660     Gekko Gear    Selection of winter sports apparel.           
+ www.gekkogear.com/
[download]

open (SIDX, "$data_dir/search.idx");
open (SIDX2, "$data_dir/search2.idx");

 if ($file_locking ne "No"){flock (SIDX, LOCK_SH) or die "Can't set lo
+ck for file: $data_dir/search.idx, $data_dir/search2.idx $!\n";}
    while (defined($line=<SIDX2>) and ($premiumline=<SIDX2>))
    {
    $sline = $line, $premiumline;
    
    foreach $kwr (@skeyw, @premiumkeyw)
        {

        if (($sline =~ /$kwr/i) and ($kwr ne ""))
            {
            $toadk = "true";
            }
            
        }

        if ($toadk eq "true")
            {
            $resultline[$icnt] = $line;
            $toadk = false;
            $icnt++;
            }

    }
 #if ($file_locking ne "No"){flock (CIT, LOCK_UN);}
close (SIDX);
close (SIDX2);

}
[download]

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:

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;
}
[download]

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.

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)