ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Pavel Ammosov 2:5020/52 10 Sep 2001 03:08:03
To : Igor Polyakov
Subject : Re: Работаем дальше...
--------------------------------------------------------------------------------
IP>Можно ли сделать так:
IP>1. Бpаузеp вызывает gu.pl
IP>2. gu.pl стpоит ответ и посылает его бpаузеpу
IP>3. бpаузеp получил ответ, а gu.pl пpодолжает pаботать...
Hа Unix можно.
Два раза сделать fork и вперед.
#!/usr/bin/perl -w
use strict;
print "Content-Type: text/plain; charset=koi8-r\n\n";
my $pid = fork();
if (!defined($pid)) {
die "Hе получилось сделать fork: $!";
}
if ($pid == 0) {
close(STDIN); close(STDOUT); close(STDERR);
my $pid2 = fork();
if (!defined($pid2)) {
die "Hе получилось сделать fork: $!";
# Этого никто всеравно не увидит...
}
if ($pid2 == 0) {
sleep(100); # Симулируем процесс
} else {
}
} else {
print "Процесс пошел\n";
}
--
Pavel Ammosov O \
apavel@aha.ru __ )
http://isabase.philol.msu.ru/~apavel/ )
wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka O /
--- FIDOGATE 4.4.0-snp10
* Origin: Zenon N.S.P. news server (2:5020/52.0)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
