Generate a Table of contents using file open loop not working.

[grasshopper2]

I am looking to build a regular expression that will match pTOC(somenumber)
where the number varies between 1& ten, this is to generate a table of contents file that I desperately need to display in my online help tab within an existing web application. I am still fairly new to perl if anyone could help me do this I will be forever in your debt.
existing code that needs to be fixed for new file.

if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/ ) {
        my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'c:\SupportWeb\NerfHerder\Content\HELP\PRO\TOC.html' : 'c:\SupportWeb\NerfHerder\Content\HELP\STD\TOC.html';
my $user_type = uc $Session->{'usrType'};
 
open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
        foreach my $line ( @toc_lines ) { 
            $content .= qq^<rlink tab="Help" script="frames['help_iframe'].location.href='Content/HELP/$user_type/$1'" title="$3">
                    </rlink>^ if ( $line =~ /<p class="pTOC1"><a href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ );
        }
        $content .= '</leftIndex>';
 
    }

The new file is in a different location, which has already been adjusted for, user_type is a variable which switches location between standard product and an optional upgrade product (not needed for new product at all and has been removed) $1 should be taking pTOC and re-writing it to leftIndex which is of course the left index of a frameset..

[KevinADC]

This should get you started:

open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
foreach my $line ( @toc_lines ) {
   if ( $line =~ /<p class="(pTOC\d+)"><a href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ ) {
      $content .= qq{<rlink tab="Help" script="frames['help_iframe'].location.href='Content/HELP/$user_type/$1'" title="$3"></rlink>};
   }
   $content .= '</leftIndex>';
}

[grasshopper2]

This should get you started:

open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
foreach my $line ( @toc_lines ) {
   if ( $line =~ /<p class="(pTOC\d+)"><a href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ ) {
      $content .= qq{<rlink tab="Help" script="frames['help_iframe'].location.href='Content/HELP/$user_type/$1'" title="$3"></rlink>};
   }
   $content .= '</leftIndex>';
}

Thanks kevin, it still isn't working for me but I appreciate the help, I am going over to my buddies who is also a web designer (he has a lot more experience than i do with perl maybe he can help me out). If if find what the problem is I will write back and let you know.

[grasshopper2]

This should get you started:

open TOC, $toc_file;
my @toc_lines = <TOC>;
close TOC;
foreach my $line ( @toc_lines ) {
   if ( $line =~ /<p class="(pTOC\d+)"><a href="(.*?)"\s+target="(.*?)">(.*?)<\/a>/ ) {
      $content .= qq{<rlink tab="Help" script="frames['help_iframe'].location.href='Content/HELP/$user_type/$1'" title="$3"></rlink>};
   }
   $content .= '</leftIndex>';
}

Kevin I think the problem is the characters in the helpfile, I noticed that the previous TOC had regular links some of the links in the new toc are like this example below would this cause the re-write to fail and if so how would i adjust so it works again?
<a href="gettingstarteda3.html#wp1318504" target="Tempo_help_frame">

etc.

[KevinADC]

Can you post a sample of the real data you are trying to parse?

[grasshopper2]

Can you post a sample of the real data you are trying to parse?

I also am having problems with switching from one to the other.
what I currently have switches from a free subscription to a pay for or to (tempo)
I would like to just display tempo if (site is eq to (list of sites) otherwise it should do the old test without the tempo element. .
The previous coder loved inline if statements (which I absolutely hate, because I find them very confusing. I would like to rewrite not to use these, but I am so new I am not sure how to)

<h2 class="pTOCTitle">Table of Contents</h2>
 <p class="pTOC1"><a href="Tempo_help-08-1.html" target="Tempo_help_frame">Getting Started</a></p>
  <p class="pTOC2"><a href="gettingstarted2.html" target="Tempo_help_frame">Signing In and Out</a></p>
  <p class="pTOC2"><a href="gettingstarteda3.html" target="Tempo_help_frame">What's On the Home Page?</a></p>
   <p class="pTOC3"><a href="gettingstarteda3.html#wp1318504" target="Tempo_help_frame">Header Bar Controls</a></p>
   <p class="pTOC3"><a href="gettingstarteda3.html#wp1318527" target="Tempo_help_frame">Main Menu Bar</a></p>
   <p class="pTOC3"><a href="gettingstarteda3.html#wp1318559" target="Tempo_help_frame">My Sidebar</a></p>
   <p class="pTOC3"><a href="gettingstarteda3.html#wp1318563" target="Tempo_help_frame">Prospecting Matches</a></p>
   <p class="pTOC3"><a href="gettingstarteda3.html#wp1318574" target="Tempo_help_frame">Find a Listing</a></p>
   <p class="pTOC3"><a href="gettingstarteda3.html#wp1318585" target="Tempo_help_frame">Hotsheet</a></p>
   <p class="pTOC3"><a href="gettingstarteda3.html#wp1318599" target="Tempo_help_frame">Inventory Watch</a></p>
  <p class="pTOC2"><a href="gettingstarted4.html" target="Tempo_help_frame">Using the MLS, Broker and Office Tabs</a></p>
  <p class="pTOC2"><a href="gettingstarted5.html" target="Tempo_help_frame">Identity Sharing</a></p>
 <p class="pTOC1"><a href="Tempo_help-02-1.html" target="Tempo_help_frame">The Basics</a></p>
  <p class="pTOC2"><a href="basics2.html" target="Tempo_help_frame">A Look at the Main Interface</a></p>
   <p class="pTOC3"><a href="basics2.html#wp1308985" target="Tempo_help_frame">Collapsing/Expanding the Main Menu</a></p>
   <p class="pTOC3"><a href="basics2.html#wp1309017" target="Tempo_help_frame">Links</a></p>
  <p class="pTOC2"><a href="basics3.html" target="Tempo_help_frame">Field Related Controls</a></p>