CGI perl讀取並打印文件的內容

我想打開一個文本文件並使用CGI和Perl和讀取前10行我寫了腳本，但它不起作用。這裏是我的問題CGI perl讀取並打印文件的內容

#!C:/wamp/apps/Perl/bin/perl.exe -wt 

use CGI; 
my $cgi=CGI->new(); 

print 
$cgi->header('text/html'), 
$cgi->start_html('Extract the text'), 
$cgi->h1({-style=>'color:red;background-color:#eee;'},'Extract CGI'), 
$cgi->start_form(-enctype=>&CGI::MULTIPART), 
'Upload your text File: ', 
$cgi->filefield(
    -name=>'filename', 
    ), 
$cgi->submit(-value=>'Read the File'), 

my $txtfile=$cgi->param('filename'), 

open my $in,$filename or die("couldnot open"); 
while (my $line = <$in>) 
{ 
    print $line; 
    last if $. == 10; 
} 
close $in; 

$cgi->end_form; 
$cgi->end_html;

來源

2013-06-21 femchi

你可能會發現這很有

http://www.sitepoint.com/uploading-files-cgi-perl-2/

基本上，上傳的文件沒有命名一樣從瀏覽器傳遞的文件

您需要對你先發送的內容進行一些檢查

來源

2013-06-21 06:17:18 KeepCalmAndCarryOn

我需要從頁面'2讀取文件 – femchi

的內容。文件句柄正如我上面提到的，我們可以使用上傳方法抓取上傳文件的文件句柄（它實際上指向由CGI.pm創建的臨時文件）。我們這樣做是這樣的： my $ upload_filehandle = $ query-> upload（「photo」）;'所以CGI已經保存了這個文件，你只需要使用這個文件並保存它或者用它做其他事情 – KeepCalmAndCarryOn

CGI perl讀取並打印文件的內容

回答

相關問題