Thanks dasgar.

Out of memory issue resolved for the first step(Copying of URLs to two different txt files).But the next step i mean comparing each url in 1st file with each URL_Exclusion in the second file and copying the matched Url along with exclusionID into the new file(matchURL.txt).

After completion of second step.We can go for third step i.e., updating Id with ExclusionID from(matchURL.txt).

OUT OF MEMORY error resolved in first step,But i am getting that error in second step

Code for the second and third steps are given below: 

 
open (URLFHR, 'Url.txt');
open(URLEXFHR,"Url_ex.txt");

   while ($ee=<URLFHR>)
      {
           while ($ee4=<URLEXFHR>)
             {
                 #print   "$ee - $ee4 \n";
                  $abc4=$ee4;
                    my  $sthID = $dbhID->prepare("select MAX(ID) from 
+DI_URL_EXCLUDE where [RULE] ='$ee4' ");
                   $sthID->execute();
                    $ID  = $sthID->fetchrow_array ;
                     #print "$ID  \n"; 
undef( $dbhID );
                    undef( $sthID );
                     if ($ee4 =~ /^%/)
                         {
                            $abc4=$ee4;
                            $abc4=~ s/^%//;##first letter
                           #    print "$abc4  \n";                    
+    
                         }
                         
                    if ($ee4 =~ /%$/)
                        {
                            $abc4=$ee4;
                            $abc4=~ s/%$//; ##Last letter
                                #print "$abc4  \n";                   
+     
                         }
                           $ee = quotemeta( $ee ); # To avoid error (U
+nmatched ) in regex; marked by <-- HERE ),To escape the special chara
+cters
                             $abc4 = quotemeta( $abc4 );
                           
                   if( ($ee) =~ (/$abc4/) )
                      {
                          #print "In comparision of $ee and $ee4,$ID \
+n";
                          open (SIMILARURLFHW, '>>Similar_Url.txt');
                          print SIMILARURLFHW "$ee\{\|\|\}$ID \n";
                          close(SIMILARURLFHW); 
                            print "\n3";
                         }
                   
                }
            
        }
            print "\n4";     
    my $a;             
 while($a =<sampleFile>)
    {
        my $UrlName =  substr $a,0,index($a,'{||}');
        my $EXID =  substr $a, index($a,'{||}')+4;
        my $sthUPEXID = $dbhUPEXID->prepare("UPDATE DI_URL SET EXCLUSI
+ONID =$EXID where URLName = '$UrlName' ");# Updating EXID in emp with
+ ID in emp4 where emp_fname matches in both
        $sthUPEXID->execute();
    }

[download]

In reply to Re^2: Out of memory! by santhosh.yamsani
in thread Out of memory! by santhosh.yamsani

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.