Просмотр сообщений
16
Perl / дайте сылку на модуль TK
« : 26 Сентября 2006, 23:29:15 »
cpan.org
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
17
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 14:24:56 »
замени своб первую строку в скрипте на
#!/usr/bin/perl -w
,в конце стоит параметр -w (warnings)
потом запусти скрипт и все увидишь
#!/usr/bin/perl -w
,в конце стоит параметр -w (warnings)
потом запусти скрипт и все увидишь
18
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 14:11:13 »
напиши
#!/usr/bin/perl -w
и увидишь в чем трабла
#!/usr/bin/perl -w
и увидишь в чем трабла
19
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 14:06:50 »
ВОт оно :О)
#!/usr/bin/perl -w
$wait=$ARGV[0];
sub ss
{
my $arg=shift;
$wait=$arg;
#return ($arg);
}
($wait eq \'-w\') ? ss($ARGV[1]) : ss(3);
print "Perem=$wait\\n";
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
C:\\>perl 111.pl -w 66
Perem=66
C:\\>perl 111.pl -w d
Perem=d
C:\\>perl 111.pl -w 553
Perem=553
C:\\>perl 111.pl -d 553
Perem=3
C:\\>perl 111.pl -d 553
Perem=3
C:\\>perl 111.pl -w 1111
Perem=1111
#!/usr/bin/perl -w
$wait=$ARGV[0];
sub ss
{
my $arg=shift;
$wait=$arg;
#return ($arg);
}
($wait eq \'-w\') ? ss($ARGV[1]) : ss(3);
print "Perem=$wait\\n";
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
C:\\>perl 111.pl -w 66
Perem=66
C:\\>perl 111.pl -w d
Perem=d
C:\\>perl 111.pl -w 553
Perem=553
C:\\>perl 111.pl -d 553
Perem=3
C:\\>perl 111.pl -d 553
Perem=3
C:\\>perl 111.pl -w 1111
Perem=1111
20
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 14:04:02 »
Parsing Traps
Parsing ``if it looks like a function, it is a function\'\' rule.
print
($foo == 1) ? "is one\\n" : "is zero\\n";
# perl4 prints: is zero
# perl5 warns: "Useless use of a constant in void context" if using -w
Parsing ``if it looks like a function, it is a function\'\' rule.
($foo == 1) ? "is one\\n" : "is zero\\n";
# perl4 prints: is zero
# perl5 warns: "Useless use of a constant in void context" if using -w
21
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 13:33:59 »
ты форум читаешь? я тебе уже написал что нужно сделать!
22
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 13:23:59 »
кстати,етот оператор называеться ТРИНАРНЫЙ :О)
23
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 13:22:49 »
$wait=@ARGV[0];
$wait eq "-w" ? @ARGV[1] : 3;
print "Perem=$wait\\n";
попробуй так
$wait eq "-w" ? @ARGV[1] : 3;
print "Perem=$wait\\n";
попробуй так
24
Perl / Вопрос по условному оператору "?:"
« : 16 Сентября 2006, 13:10:32 »
$wait=@ARGV[0];
$wait eq "-w" ? @ARGV[1] : 3;
print "Perem=$wait\\n";
попробуй так
$wait eq "-w" ? @ARGV[1] : 3;
print "Perem=$wait\\n";
попробуй так
26
Perl / Прова доступа
« : 29 Августа 2006, 18:15:01 »
на сервере де лежит твой перловый файл в папочке cgi-bin
ставишь все перловым файлам права 777 или rwx r-x r-x если пользуешься FAR то нажимаешь на файле Сtrl+A и ставишь права
ставишь все перловым файлам права 777 или rwx r-x r-x если пользуешься FAR то нажимаешь на файле Сtrl+A и ставишь права
27
Perl / FastCgiConfig
« : 24 Июля 2006, 18:23:10 »
ok сенкс, так и буду делать
хотя до сих пор оч странно, почему не слушаеться FastCgiConf
я так думаю что иногда придеться прегружать апач чтоб избавиться
от лишних копий .fpl в памяти
хотя до сих пор оч странно, почему не слушаеться FastCgiConf
я так думаю что иногда придеться прегружать апач чтоб избавиться
от лишних копий .fpl в памяти
28
Perl / FastCgiConfig
« : 24 Июля 2006, 17:57:03 »
тоесь какой сделать вывод?
не мучиться и сделать следующее:
AddHandler fastcgi-script .fpl
FastCgiIpcDir /var/run/fastcgi
FastCgiConfig -killInterval 10
FastCgiServer путь/frviezd.fpl -processes 1
лишнии копии процессов будут выгружаться из памяти?
не мучиться и сделать следующее:
AddHandler fastcgi-script .fpl
FastCgiIpcDir /var/run/fastcgi
FastCgiConfig -killInterval 10
FastCgiServer путь/frviezd.fpl -processes 1
лишнии копии процессов будут выгружаться из памяти?
29
Perl / FastCgiConfig
« : 24 Июля 2006, 16:32:13 »
Смори [warn] FastCGI: server "/path_to/test.fcgi" started (pid xxx) -- это когда запускаеться стационарный а не димамический сервер, тоесть в конфиге я должен прописать старт на все скрипты .fpl которые мне нужны (для стационарного)
Я же хочу следующего:
.fpl скрипт грузиться в память и висит там токо есл кнему обратился юзер а если юзер перестал работать то повисев определенное время выгружаеться.
Это все для того чтобы:
нарпимер одновременно 100 человек запускают 1.fpl поскольку .fpl не может один одновременно справиться с таким числом обращений запускаеться копия его тоесть в памяти уже будут висеться например 100 процессов 1.fpl
после того как некотрые юзера закончили работу некоторые копии .fpl выгружаються
Я же хочу следующего:
.fpl скрипт грузиться в память и висит там токо есл кнему обратился юзер а если юзер перестал работать то повисев определенное время выгружаеться.
Это все для того чтобы:
нарпимер одновременно 100 человек запускают 1.fpl поскольку .fpl не может один одновременно справиться с таким числом обращений запускаеться копия его тоесть в памяти уже будут висеться например 100 процессов 1.fpl
после того как некотрые юзера закончили работу некоторые копии .fpl выгружаються
30
Perl / FastCgiConfig
« : 24 Июля 2006, 16:22:24 »
ну так он и должен динамически запускаться я его как DSO ставил, а вот почему игнорит конфиг не пойму, ведь я уже это все проделывал на VPS и все работало, скрипты сами выгружались из память после killInterval