#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";
use strict;
use CGI qw(:standart);
my $file = "ааа.txt";
open (OUT, ">>$file");
print OUT "aaa - ", param('inputname'), "\n";
close (OUT);
perl - Передача данных в .pl из формы
:confused: Уже всю голову сломала и всё что можно перепробовала, подскажите пожалуйста как в ЦГИ прочесть данные формы?
Что у меня не так?
Что у меня не так?
Код:
ты не создаешь объект CGI (если что не так, squirl меня наругает ;) )
Код:
#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";
use strict;
use CGI qw(:standart);
my $cgi = new CGI;
my $file = "ааа.txt";
open (OUT, ">>$file");
print OUT "aaa - ", $cgi->param('inputname'), "\n";
close (OUT);
print "Content-Type: text/html\n\n";
use strict;
use CGI qw(:standart);
my $cgi = new CGI;
my $file = "ааа.txt";
open (OUT, ">>$file");
print OUT "aaa - ", $cgi->param('inputname'), "\n";
close (OUT);
Тень Пса
я вам что, папа - ругать? :) впринципе - ты прав. можно использовать ОО интерфейс. однако CGI.pm поддерживает и function-oriented стиль.
первый - удобнее, второй - шустрее.
LioKlio
если вы не используете ООП стиль вызова методов - вам придется явно импортировать методы. для данного случая, сделайте так:
ЗЫ: приятно видеть, что perl еще в почете. и вдвойне приятно - видеть девушку перловода :)
я вам что, папа - ругать? :) впринципе - ты прав. можно использовать ОО интерфейс. однако CGI.pm поддерживает и function-oriented стиль.
первый - удобнее, второй - шустрее.
LioKlio
если вы не используете ООП стиль вызова методов - вам придется явно импортировать методы. для данного случая, сделайте так:
Код:
use CGI (standart param);
ЗЫ: приятно видеть, что perl еще в почете. и вдвойне приятно - видеть девушку перловода :)
И тот и другой варианты работают отлично, я выберу наверное пока второй, ни к чему мне ООП тут. Спасибо Вам мальчики за помощь, ну и за тёплые слова :*
ЗЫ. я наверное поселюсь тут у вас, если не возражаете, позадаю еще ламерских вопросов :)
Вот кстати сразу следующий, после записи в фаил хотелось бы перейти на html страничку какую нибуть, а как?
ЗЫ. я наверное поселюсь тут у вас, если не возражаете, позадаю еще ламерских вопросов :)
Вот кстати сразу следующий, после записи в фаил хотелось бы перейти на html страничку какую нибуть, а как?
Цитата: LioKlio
И тот и другой варианты работают отлично, я выберу наверное пока второй, ни к чему мне ООП тут. Спасибо Вам мальчики за помощь, ну и за тёплые слова :*
ЗЫ. я наверное поселюсь тут у вас, если не возражаете, позадаю еще ламерских вопросов :)
Вот кстати сразу следующий, после записи в фаил хотелось бы перейти на html страничку какую нибуть, а как?
ЗЫ. я наверное поселюсь тут у вас, если не возражаете, позадаю еще ламерских вопросов :)
Вот кстати сразу следующий, после записи в фаил хотелось бы перейти на html страничку какую нибуть, а как?
например так:
Код:
#!/usr/bin/perl -w
use strict;
use CGI qw(standart param redirect http);
my $file = "test.txt";
open (OUT, ">>$file");
print OUT "test - ", param('inputname'), "\n";
close (OUT);
print redirect(-uri => http('HTTP_REFERER')) ;
print "Content-Type: text/html\n\n";
use strict;
use CGI qw(standart param redirect http);
my $file = "test.txt";
open (OUT, ">>$file");
print OUT "test - ", param('inputname'), "\n";
close (OUT);
print redirect(-uri => http('HTTP_REFERER')) ;
print "Content-Type: text/html\n\n";
в этом случае - возврат будет на ту страницу, откуда вы вызывали скрипт. либо подставьте в redirect -uri - нужный линк.
подробности - perldoc CGI. не пренебрегайте им :)
Цитата: squirL
подробности - perldoc CGI. не пренебрегайте им :)
Да я бы с удовольствием, знать бы где. Вы б направили в правильное русло, я и почитать сама непостеснялась бы (правда на русском предпочтительнее).
с любым дистрибутивом perl - идет комплект документации. также - есть cpan.org :)
вот есть немного на русском - http://www.perldoc.ru/cgi-bin/shell?SID=1d100b5faca7ac2033d63f78ecb12d11&MENU_ID=159
squirL, нет )) не папа :) просто, я уверен, что лучше знаешь ;) да и я могу что-то упустить. вот например как счаз =) посоветовал так, как пользую постоянно ) не помню уж когда function-oriented для CGI использовал...
ps: а Perl в почёте!!! и еще как! =) например, у нас в компании (хоть и маленькой) ни одного php программера нет, только Perlовики, ну или "пополамные" perl/c++, perl/java :)
не, это не значит, что наша компания эталон почетаемости Perl :))
squirL, нет )) не папа :) просто, я уверен, что лучше знаешь ;) да и я могу что-то упустить. вот например как счаз =) посоветовал так, как пользую постоянно ) не помню уж когда function-oriented для CGI использовал...
ps: а Perl в почёте!!! и еще как! =) например, у нас в компании (хоть и маленькой) ни одного php программера нет, только Perlовики, ну или "пополамные" perl/c++, perl/java :)
не, это не значит, что наша компания эталон почетаемости Perl :))
Цитата: Тень Пса
не помню уж когда function-oriented для CGI использовал...
ну в крупных проектах - поневоле приходится ООП юзать :) а вот когда для себя пишешь утилиты - стараюсь поменьше пользовать объекты. ибо медленно :)
да =) соглашусь, в крупных проектах удобнее ООП пользовать.