Forum

Форум

Тема: SSI and Perl

10/10/2006 06:25 Dimms:

Max, попробуйте пожалуйста сделать аналогичную задачу на Linux сервере (3.05.59)Она у меня не работает. :(

HTML код:
<form action="/cgi-bin/mn.pl" METHOD="POST">
<input name="text" value="">
<textarea name="text2" rows="6"></textarea>
</form>




Perl mn.pl код:
#!/usr/bin/perl
use CGI qw(param);
print "Content-type: text/html\n\n";

my $text = param("text");
my $text2 = param("text2");

if ($text and $text2) {
print "$text , $text";
}

Perl wiev1 код (wiev2 аналогичный только текстовый файл другой.):
open (TOP, "< /var/home/dima/his.ini") or die "Can`t open file topic $!";
while(<TOP>) {
print;
}
close (TOP) or die "Can`t close file topic $!";

Все хорошо работает только под Windows сервером.

10/10/2006 06:27 Dimms:

В примере wiev1 забыл вам еще написать:
#!/usr/bin/perl
print "Content-type: text/html\n\n";

10/10/2006 06:27 Dimms:

В примере wiev1 забыл вам еще написать:
#!/usr/bin/perl
print "Content-type: text/html\n\n";

11/10/2006 20:35 Dimms:

Разобрался сам.

11/10/2006 20:35 Dimms:

Разобрался сам.

13/10/2006 19:14 Dimms:

В примере wiev1 забыл вам еще написать:
#!/usr/bin/perl
print "Content-type: text/html\n\n";