[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> wrote:
: thx Charles, but your code is something I did knew (sic) already.
: I need to implement a link for each H string and I do not see
: this???
I assume by "implement a link" you mean that you want to
create an HTML ANCHOR tag for each H String. After re-reading your
original question on this thread I think you are looking for more
than just an anchor tag. You also need a method to retrieve
"capacity data sets" after a link has been followed.
Here is my solution.
my $url = 'capacity.pl?hstring';
my @links;
foreach my $h_string ( @h_strings ) {
push @links,
$q->a(
{ href=> "$url=$h_string" },
$h_string
);
}
print
$q->ul(
$q->li( [EMAIL PROTECTED] ),
);
# in capacity.pl
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $q = CGI->new();
my $h_string = $q->param( 'hstring' );
print
$q->header(),
$q->start_html( "Capacity Data for $h_string" ),
$q->p( capcity_data( $h_string ) ),
$q->end_html;
sub capcity_data {
my $h_string = shift;
#
# Do that thing you do to get capacity data and
# deposit the result in $capacity_data.
#
return $capacity_data;
}
__END__
: So in the FH reference local *ARC;
: once its open, I can just reuse the reference right? Does the
: FH have to still be open in order to reuse it?
I don'tknow what you are asking. For more info on why I
added "local *ARC;" read this article.
http://perl.plover.com/local.html#2_Localized_Filehandles
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
