Training, Open Source computer languages
PerlPHPPythonMySQLApache / TomcatTclRubyJavaC and C++LinuxCSS 
Search for:
Home Accessibility Courses Diary The Mouth Forum Resources Site Map About Us Contact
How to download files in Perl

Posted by padawanlinuxero (padawanlinuxero), 27 December 2007
Hello !!!!
I have a script that needs help, I need to display some files from a folder and be able to download them with a simple link, if the link is click then it must appear the Save As screen, but until now only I have been able to open the folder and view the files like links but I can not download them
this is the code unitl now:


#!c:/perl/bin/perl.exe

use strict;
use CGI;


my $list = new CGI;

my $fileDir = "c:/files/err";
my @files;

opendir DIR, "$fileDir" or die "Can't open $fileDir $!";
   @files = grep { /\.(?:txt|zip|jpg|mp3|err|csv)$/i } readdir DIR;
closedir DIR;

print $list->header("text/html"),
     $list->start_html("Archivos in $fileDir"),
     $list->p("Estos son los archivos de $fileDir");

foreach my $file (@files) {
   print $list->p($list->a({-href=>$fileDir."/".$file},$file)
   );
   
}
print $list->end_html;





Posted by KevinAD (KevinAD), 27 December 2007
The CGI module has support for what you are trying to do. Look for the -attachment and -type options in the CGI module documentation under the CREATING A STANDARD HTTP HEADER: section. If you have further questions post them.



This page is a thread posted to the opentalk forum at www.opentalk.org.uk and archived here for reference. To jump to the archive index please follow this link.

You can Add a comment or ranking to this page

© WELL HOUSE CONSULTANTS LTD., 2014: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • FAX: 01144 1225 899360 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho