OpenForum RSS: Perl, fork, pipe � �� pipe'e

Perl, fork, pipe � �� pipe'e (bibi)

Sat, 02 May 2009 04:20:00 GMT

>��

� �� , � �� !

�� ?

Perl, fork, pipe � �� pipe'e (angra)

Tue, 24 Feb 2009 16:46:26 GMT

�� - �� 0 � �� . �� undef.
�� , ��

#!/usr/bin/perl -w
use IO::Handle;
use IO::Select;
pipe(READ, WRITE) or die $!;
WRITE->autoflush(1);

if (my $pid = fork) {
close WRITE;
my $s=IO::Select->new;
$s->add(\*READ);
while (1) {
if ($s->can_read(0.5)) {
my $line = <READ>;
print "Child sent:$line";
close READ;
waitpid($pid,0);
last;
} else {
print "doing something\n";
}
}
} else {
die "cannot fork: $!" unless defined $pid;
sleep (5);
print WRITE "Hello\n";
close WRITE;
exit;
}

��

Perl, fork, pipe � �� pipe'e (��)

Tue, 24 Feb 2009 15:42:32 GMT

>perldoc -f select
>perldoc IO::Select

��. �� . �� , �� , �ӣ �� ;( �� ?

#!/usr/bin/perl

use IO::Select;

pipe(READ,WRITE);
WRITE->autoflush(1);

$select = IO::Select->new();
$select->add(READ); #�� *READ � \*READ, �� . �� ;(
print WRITE "Ololo\n";

if (@ready = $select->can_read(0)) {
$olo=<READ>;
print "$olo!!!!";
} else {
print "Nea\n";
}

�� Nea

Perl, fork, pipe � �� pipe'e (��)

Tue, 24 Feb 2009 14:26:54 GMT

>perldoc -f select
>perldoc IO::Select

�� ;)

Perl, fork, pipe � �� pipe'e (angra)

Tue, 24 Feb 2009 12:23:27 GMT

perldoc -f select
perldoc IO::Select

OpenForum RSS: Perl, fork, pipe � �������� ������� ������ � pipe'e

Perl, fork, pipe � �������� ������� ������ � pipe'e (bibi)

Perl, fork, pipe � �������� ������� ������ � pipe'e (angra)

Perl, fork, pipe � �������� ������� ������ � pipe'e (��������)

Perl, fork, pipe � �������� ������� ������ � pipe'e (��������)

Perl, fork, pipe � �������� ������� ������ � pipe'e (angra)

OpenForum RSS: Perl, fork, pipe � �� pipe'e

Perl, fork, pipe � �� pipe'e (bibi)

Perl, fork, pipe � �� pipe'e (angra)

Perl, fork, pipe � �� pipe'e (��)

Perl, fork, pipe � �� pipe'e (��)

Perl, fork, pipe � �� pipe'e (angra)