Perl Script to display files on a web page.

[Marty99]

I have a script in ASP that will dynamically create a web page of the files in the current directory and sort them alphabetically.

I want to do this same thing in Linux, ASP will not work, and the converted ASP (asp2php) does not work either.

Any ideas, your help is appreciated.

 

[siberian]

Pretty trivial to do in linux.

#!/usr/bin/perl
use CGI;
$query = new CGI;
print $query->header ;

opendir(DIR,"./");
@files = grep !/^\./, readdir(DIR);
closedir(DIR);

foreach $file(sort @files){
  print "$file<BR>" ;
}

You can vary this to do different things ,templatize it etc.

 

[missbarbell]

I'd refine that code slightly (depending upon your requirements):

#!/usr/bin/perl
use CGI;
$query = new CGI;
print $query->header ;

opendir(DIR,"./");
@files = grep !/^\.+$/, readdir(DIR);
closedir(DIR);

print join("<BR>", sort @files);

The regex in siberian's grep would ignore any file beginning with a '.', not just the directory shortcuts of '.' & '..'. The last line just speeds things up slightly. Though as always there's more than one way to do it

Barbie
Leader of Birmingham Perl Mongers

http://birmingham.pm.org

 

[siberian]

Ya, I missed that second dot, I did a quick copy/paste from the man page on the wrong example.

Sorry about that.

 

[Marty99]

When i try to run this I get the following, I have perl-5.8.0-88 installed on Redhat 9, I don't have CGI.pm on my system:

[root@NAWRCS-SYSLOG cisco]# ./web.gen
Can't locate CGI.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 .) at ./web.gen line 2.
BEGIN failed--compilation aborted at ./web.gen line 2.
[root@NAWRCS-SYSLOG cisco]#

 

[siberian]

Install CGI, it will make your life a lot easier.

 

[Marty99]

What RPM for redhat?

 

[duncdude]

without CGI...

[red]#!/usr/bin/perl

print "Content-type:text/html\n\n";

opendir (LIST, ".");
@list = grep(/[^.][^index.pl]/, readdir (LIST));
close (LIST);

foreach $item (@list) {
print "<li><a href='$item'>$item</a>\n";
}[/red]


Kind Regards
Duncan