@nametag

Perl сохранение данных из инпут поля при нажатии на кнопку?

Добрый день, подскажите как сделать сохранение данных из инпут поля в текстовый документ на сервере, и после сохранения выходила ссылка на этот файл?

Он вроде все делает, но не сохраняет данные в файл

#!c:\Perl64\bin\perl.exe

print "Content-type: text/html\n\n";
print "<html>\n";
print "\t<head>\n";
print "\t\t<title>Test</title>\n";
print "\t</head>\n";
print "\t<body>\n";

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s/<!--(.|\n)*-->//g;
  $input{$name} = $value;
}

# Save the user output in a file

$targetfile = "C:\Program Files\Apache Software Foundation\Tomcat 9.0\webapps\RINTE\names.txt";

open (NAMEFILE, ">>$targetfile");
print NAMEFILE "Name: ",$input{'user_name'},"\n";
close (NAMEFILE);

# Send a message back to the user
print "Content-Type: text/html\n\n";

print "<h4>Thx for edditing the information</h4>\nPress ";
print '<a href="http://localhost:8080/RINTE/names.txt">here</a>'; 
print ", to see your data.\n";
print "<h4>Name: ",$input{'user_name'},"</h4>\n";
print "\t</body>\n";
print "</html>\n";
  • Вопрос задан
  • 72 просмотра
Решения вопроса 1
@krypt3r
open (NAMEFILE, ">>$targetfile") or die "open() error: $!\n";
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы