Re: Re: Re: read and link !

i'm sorry but i have lost a part of question: example: the folder is c:\temp - the file is pippo.tif. I need to create a href ..... of all files in $dir how can create ??? thank you claudia

Comment on Re: Re: Re: read and link !

Replies are listed 'Best First'.
Re: Re: Re: Re: read and link ! by davorg (Chancellor) on Oct 29, 2002 at 16:15 UTC
`my $dir = '/path'; # the directory to list my $url = 'http://blah/path'; # the url for that directory opendir DIR, $dir or dir $!; my @links = map { qq(<a href="$url/$_">$_</a>) } readdir DIR; use CGI qw(ul li); print ul(li([@links]));` [download] -- <http://www.dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Re: read and link !
by davorg (Chancellor) on Oct 29, 2002 at 16:15 UTC

my $dir = '/path'; # the directory to list
my $url = 'http://blah/path'; # the url for that directory

opendir DIR, $dir or dir $!;

my @links = map { qq(<a href="$url/$_">$_</a>) } readdir DIR;

use CGI qw(ul li);

print ul(li([@links]));
[download]

http://www.dave.org.uk

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

[reply]
[d/l]