Kyle, et al --
...and then Kyle Babich said...
%
% This is what I have:
%
% my %pages = ("Yahoo","http://www.yahoo.com/";,
% "Google", "http://www.google.com/";,
% "All The Web", "http://www.alltheweb.com/";);
%
% while ( my ($key, $pages) = each %pages ) {
% print qq{<a href="$pages">$key</a>};
% }
%
% How could I put this all into a scalar to call up later?
Didn't you try my idea from my last post?
[zero] [6:42am] ~> \
perl -we 'my %pages = \
("yahoo","http://yahoo.com","google","http://google.com";); \
my $output = "" ; while ( my ($key, $page) = each %pages ) \
{ $output .= qq{<a href="$page">$key</a><br>\n};}; \
print "OUTPUT:\n$output";'
OUTPUT:
<a href="http://google.com";>google</a><br>
<a href="http://yahoo.com";>yahoo</a><br>
[zero] [6:42am] ~>
%
% Thank you,
% Kyle
HTH & HAND
:-D
--
David T-G * It's easier to fight for one's principles
(play) [EMAIL PROTECTED] * than to live up to them. -- fortune cookie
(work) [EMAIL PROTECTED]
http://www.justpickone.org/davidtg/ Shpx gur Pbzzhavpngvbaf Qrprapl Npg!
msg05486/pgp00000.pgp
Description: PGP signature
