[Nikolos]

Я новичёк, так что если что поправьте...
Вот такое поле ввода:

<FORM name=PFrm
action=file1 method=post><INPUT type=hidden value=1
name=modify><INPUT type=hidden value=support.list name=Username>
<TBODY>
<TR>
<TD align=right>Поле ввода 1</TD>
<TD><INPUT type=text size=25 name=pole#1>
</TD></TR>

Я попробывал написать такой вот скрипт :

sub User_Data {
local (%user_data, $user_stribg, name, value_pair,
@name_value_pairs, $bame, $value);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDINM,$user_string,$ENV{'CONTENT_LENGTH'});
} else {
$user_string = $ENV{'QUERY_STRING'};
}
$user_string = $~/\+/ /g;

@name_value_pairs = split(/&/, $user_string);
foreach $name_value_pair (@name_value_pairs) {
($name, $value) = split(/=/, $name_value_pair);
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
$value = ~ s/%([a-fA-f0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
if (defined($user_data{$name})) {
$user_data{$name} .= ":" . $value;
} else {
$user_data{$name} = $value;
}
}
return %user_data;
}

Теперь такой вопрос : Как сохранить данные из скрипта в файл, и пользователя послать на следующую страницу ???

[kost]

Мне ленб разбираться в вашем скрипте.

file1.cgi

#!/usr/bin/perl -w

use CGI qw(:standard);

my $pole = param('pole1');

open (FOO_FILE, ">>foo.txt") ||  die "Cannot open the file: $!";
print FOO_FILE $pole;
close(FOO_FILE);

print "Status: 302 Moved\nLocation: nextpage\n\n";

Где nextpage -- следущая страница
foo.txt -- файл, куда все пишем.
pole1 -- поле в форме.

[Nikolos]

Спасибо ! всё понятно