Помогите с Perl
On 2001-11-01 0021, kden wrote
Расскажите как правильно принять и обработать(сохранить) файл, переданный с помощью формы.
Не все так трудно, как кажеться!
#!/usr/bin/perl
#обрабатываем полученные данные
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/\s/ /g;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;
$FORM{$name} = $value;
#пишем в файл
open(FILE,">file.txt");
flock (FILE,2);
print FILE $FORM{'name'};
close (FILE);
так мы записали в файл данные из поля name
дейтсвую по аналогии
On 2001-11-04 2221, cyberg wrote
[quote]
On 2001-11-01 0021, kden wrote
Расскажите как правильно принять и обработать(сохранить) файл, переданный с помощью формы.
Не все так трудно, как кажеться!
#!/usr/bin/perl
#обрабатываем полученные данные
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/s/ /g;
$value =~ s/<([^>]|n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;
$FORM{$name} = $value;
#пишем в файл
open(FILE,">file.txt");
flock (FILE,2);
print FILE $FORM{'name'};
close (FILE);
так мы записали в файл данные из поля name
дейтсвую по аналогии
[/quote]
ТЫ КАЖЕТСЯ НЕ ПОНЯЛ ВОПРОСА...
Я СПРАШИВАЮ ПРО ФАЙЛ, А НЕ ПРО ДАННЫЕ !
... А ФАЙЛ - ЭТО МОЖЕТ БЫТЬ ЧТО УГОДНО,
НАПРИМЕР КАРТИНКА. ПОНЯЛ ? ТАК-ТО ЛУЧШЕ !
#!/usr/bin/perl
use CGI qw(:standard);
print "Content-type: text/html\n\n";
$n1=param('smit'); #параметр уже дома
#это форма из которой он пришел
print <<HTML;
<html>
<body bgcolor="#F0F0F0">
мне должны:
<form action="/cgi-bin/my.cgi" method=GET >
Семен: <input type="text" name="smit" >
<input type="submit" value="enter">
</form>
</body>
</html>
HTML
print $n1;
#пишем в файл
open(FILE,">file.txt");
print FILE 'Смен:'.$n1;
close (FILE);