|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 13 Apr 2005 15:13:44
To : Dmitry A. Nikitin
Subject : Re: Странные вещи творятся.
--------------------------------------------------------------------------------
Dmitry A. Nikitin -> Artem Chuprina @ Wed, 13 Apr 2005 09:08:03 +0000 (UTC):
>> Кто-то жмет на кнопку submit double-click'ом?
>>
DAN> Хотел бы я узнать кто. Если это мозила жмёт, то зачем она это делает?
Да нет, юзер...
DAN> Hаписал вот это
DAN> #!/usr/bin/perl -w
DAN> use CGI qw/:all/;
DAN> if ($ENV{'QUERY_STRING'}) {$buffer = $ENV{'QUERY_STRING'};}
DAN> else {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
DAN> @pairs = split(/&/, $buffer);
DAN> foreach $pair (@pairs) {
DAN> ($name, $value) = split(/=/, $pair);
DAN> $value =~ tr/+/ /; # заменяем плюсы на пробелы
DAN> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
DAN> $value =~ s/<!--(.|\n)*-->//g;
DAN> $input{$name} = $value;
DAN> }
DAN> $query = "$input{param1}\&$input{param2}\&$input{param3}\&$input{param4}";
DAN> open QUERY, ">/tmp/file.$$.txt" or die $!;
DAN> print QUERY "$query\n";
DAN> close QUERY;
DAN> print header(),
DAN> start_html(),
DAN> $query;
DAN> print end_html;
DAN> Создаётся один файлик, как и надо. Где косяк хоть убейся не пойму.
А чем это отличается от "вон того"? Видишь ли, одному и тому же процессу
довольно сложно создать два файла с именем /tmp/file.$$.txt. У него,
видишь ли, pid не меняется. Значит, в обработке участвуют два процесса.
--
Artem Chuprina
RFC2822: <ran{}ran.pp.ru> Jabber: ran@jabber.ran.pp.ru
Praemonitus premunitus
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по:
|
