The more I study this Perl more I confused...and get Server error 500.
I tried to search solution from internet but cant find any or if found some did not understand it.
problem is this:
I need a script which search with given string all files within specific directory and and print all those...
I have this little script which prints all files from directory as links.
How can I modify it to print in 2 or 3 columns?
Kari
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;
use CGI qw(:all);
print header(),
ul( map li( a( {href => $_ }, $_ )), <*.*> )
;
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.