Hi, danke für eure Hilfe, habe den Code jetzt so verändert und bekomme immer noch eine Fehlermeldung:
use CGI;
use CGI::Upload;
my $form = new CGI;
my $upload = CGI::Upload->new;
my $file_name = $upload->file_name('file');
die $form->cgi_error . "\n" if $upload->cgi_error;
my $se_input;
open(my $fhin, "<", $file_name ) or die "Konnte Input $file_name nicht oeffnen!\n";
while (my $line = <$fhin>)
{
chomp($line);
$se_input = $line;
}
Fehlermeldung:
Konnte Input nicht oeffnen!
Ich denke das liegt an meinem HTML code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<form action=test.pl method=get>
<table border=0 cellpadding=10 cellspacing=10>
.........
<td><textarea type=text rows=10 cols=50 name=sinput></textarea>
<FORM METHOD="POST" ACTION="test.pl" ENCTYPE="multipart/form-data">
<input name=file type=file>
</form>
</td>
</tr>
..........
<td></td>
<td><input type=submit value="SUB"></td>
</tr>
</table>
</form>
</body>
</html>
Last edited: 2010-03-16 10:55:17 +0100 (CET)