Solved

How do I make a series of text links from a directory of html files

Posted on 2007-11-20
1
160 Views
Last Modified: 2011-10-03
This is in reference to
http://www.experts-exchange.com/Programming/Languages/Scripting/Perl/Q_22949794.html

I would like this script to also generate a list of the index pages used to generate the drop down list.  This text list will be layed out in a table, with each cell containing a linked number to its corresponding index##.htm page.  The table should be generated dynamically.

Also, I would like that the links in the drop down list somehow include the corresponding index##.htm into each of its generated links, so that I may use a javascript to 'grab' that info for other use.

Thanks
0
Comment
Question by:kailee
1 Comment
 
LVL 39

Accepted Solution

by:
Adam314 earned 500 total points
ID: 20320566

#!/usr/bin/perl
use HTML::Parser;
use CGI qw(:standard);
print header, start_html('title');
 
my  $p = HTML::Parser->new(
   api_version => 3,
   start_h => [\&start, "tagname, attr"],
   end_h   => [\&end,   "tagname, skipped_text"],
   );
 
 
my $value;
sub start{
      my ($tag, $attr) = @_;
      $value=undef,return if $tag ne 'a';
      return unless $attr->{href} =~ /openingindex\.htm$/;
      $value=$attr->{href};
}
chdir("/home2/mdc/public_html/mrd/final/news/");
 
my %texts;
sub end{
    my ($tag, $text) = @_;
    return if $tag ne 'a';
    return unless $value;
    $text =~ s/^\s*(.*?)\s*/$1/;
    $texts{$text}->[0] = $value;
    push @{$texts{$text}}, $FileName;
}
 
my $FileName;
$p->parse_file($FileName) foreach $FileName (<index??.htm>);
 
#To print a drop-down list:
print "<option value=\"$texts{$_}->[0]\">$_</option>\n" foreach (sort keys %texts);
 
#To print a table:
print "<tr><td>$_->[0]</td><td>$_->[1]</td></tr>\n" foreach (map {[$_, join(" ", @{$texts{$_}}[1..$#{$texts{$_}}] )]} keys %texts);

Open in new window

0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
I have been pestered over the years to produce and distribute regular data extracts, and often the request have explicitly requested the data be emailed as an Excel attachement; specifically Excel, as it appears: CSV files confuse (no Red or Green h…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question