0

を使用してテキスト ファイルを開いて最初の 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;
4

1 に答える 1

0

あなたはこれが便利だと思うかもしれません

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

基本的に、アップロードされたファイルは、ブラウザから渡されたファイルと同じ名前ではありません

最初に送信された内容を確認する必要があります

于 2013-06-21T06:17:18.783 に答える