Perl CGI download file

Question

I need to create an HTML file which input text or file. The text will be processed and printed while the file is processed and downloaded.

I am not able to create download. I tried with download header, but it didn't work. A new file will be created with @array after processing the file. output_file.txt should be downloadable by the user.

#!C:/perl64/bin/perl.exe
use strict;
use warnings;
use CGI::Pretty qw(:all);


# HTML
print header();
print start_html();
print start_form();
print textfield('text');
print (submit);
print filefield('file');
print submit();
print end_form();
print end_html();

if (param ('file')) {
    my $fh = param('file');
# File processed to get @result and made new file
    open (OUT, ">output/output_file.txt");
    print OUT @result;
# Need to download output_file.txt file
}

# Text processed and printed
elsif(param('text')){
    my $text = param('text')
}

Answer 1

Try the following:

#!/usr/bin/perl -w
use strict;
use warnings;
use CGI::Pretty qw(:all);
my @result;
if (param ('file')) {
    my $file_name=param('file');
    my $file_handle =upload('file');
    my $file_size=-s $file_handle;
    print header(
        -type=>'application/octet-stream',         
        -attachment=> $file_name,
        -Content_Length=>$file_size
    );
# file processed to get @result and made new file 
    binmode($file_handle);
    while (<$file_handle>){
        print $_;
        push (@result,$_);
    }
# need to download output_file.txt file
}
# text processed and printed
elsif(param('text')){
    my $text = param('text');
    print header(
        -type=>'application/octet-stream',         
        -attachment=> "Sample.txt",
        -Content_Length=>length($text)
    );
    print $text;
}

# html 
print header();
print start_html();
print start_form();
print textfield('text');
print (submit);
print end_form();
print start_form();
print filefield('file');
print submit();
print end_form();
print end_html();

Answer 2

Here's an example I modified:

#!C:\Program Files\perl\bin\perl.exe

use CGI ':standard';  
use CGI::Carp qw ( fatalsToBrowser );  

$input_val = $ENV{'QUERY_STRING'};

($field_name, $command) = split (/=/, $input_val);
($file_name, $option_name) = split(/&/, $command);


$file_path= "Database/$file_name";

$directorypath = "Database/";

my $files_location;  
my @fileholder;  

$files_location = $directorypath;  

if ($file_name eq '')
{  
    print "Content-type: text/html\n\n";  
    print "File doesn't exist";  
} else {  

    open(DLFILE, "<$files_location/$file_name") || Error('open', 'file');  
    @fileholder = <DLFILE>;  
    close (DLFILE) || Error ('close', 'file');  

    print "Content-Type:application/x-download\n";  
    print "Content-Disposition:attachment;filename=$file_name\n\n";  
    print @fileholder;  
}

print "</HTML>";
exit 0;

Refer to this website: http://www.perlnotes.com/study0680.htm