OpenForum RSS: perl pipes

perl pipes (iliya)

Tue, 02 Sep 2008 13:20:02 GMT

�� :)

perl pipes (NuINu)

Tue, 02 Sep 2008 10:36:41 GMT

>>�� ! ��
>>�� , �� 1.
>
>�� , ��
>�� ?
>

�� (auttoflush)� �� print(�� ). �� 1 ��, �� 1 ��.
�� .

�� (��) �� , �� stdout �� :
STDOUT->autoflush(1);

perl pipes (NuINu)

Tue, 02 Sep 2008 10:24:57 GMT

>>�� :
>>pipe(CHILD, PARENT);
>>CHILD->autoflush(1);
>>�� !!!
>>�� ! ��
>>�� , �� 1.
>
>�� , ��
>�� ?

��, ��, � ��. � �� , � ��.

perl pipes (iliya)

Tue, 02 Sep 2008 09:51:17 GMT

>�� , �� W1 � � ��
>�� R1. ��
>"1\n" �� .

��! �� :)))) � � �� , �� , �� , �� :)
�� , �� (�) �� :)

>� �� . �� .

��.

>�� :
>pipe(CHILD, PARENT);
>CHILD->autoflush(1);
>�� !!!
>�� ! ��
>�� , �� 1.

�� , �� ?

>�� , � �� .
>�� :
>PARENT->autoflush(1);

��

perl pipes (NuINu)

Tue, 02 Sep 2008 06:10:39 GMT

>[�� ]
>}
>
>�� .
>�� -�� , �� ? �� ,
>�� , ��, COUNT_MEM � ��
>�� COUNT_MEM/5 byte.
>ps �� ? :)))
>please help :)
>pps. ��, �� child: '602'{child}, �� 602 �� .
>

�� , �� W1 � � �� R1. �� "1\n" �� .
� �� . �� .
�� :
pipe(CHILD, PARENT);
CHILD->autoflush(1);
�� !!!
�� ! �� , �� 1.
�� , � �� .
�� :
PARENT->autoflush(1

perl pipes (iliya)

Mon, 01 Sep 2008 12:51:03 GMT

��.
��, ��. �� !
� �� , �� . �� . � �� :

#!/usr/bin/perl

use IO::File;
use File::Spec;
use POSIX;
use strict;

sub print_arr {
my @t = @_;
foreach my $l (@t) {
print $l;
}
}

pipe(CHILD, PARENT);
pipe(R1,W1);
pipe(R2,W2);
pipe(R3,W3);
R1->autoflush(1);
R2->autoflush(1);
R3->autoflush(1);
CHILD->autoflush(1);
my @arr=();
my $delim = '---------------------------------------------------------------------------'."\n";
print "Single process work\n";
my $pid=fork;

if($pid==0) {
#Child work, children process read file, to arr, and send to parent
close CHILD;close R1;close R2;close R3;
print "Child process work: $$\n";
#�� @arr
print W1 "1";
open(F_IN, "<", '/var/log/nortel/linuxbase.log');
while(my $t = <F_IN>) {
push @arr, $t;
}
close(F_IN)

perl pipes (NuINu)

Wed, 27 Aug 2008 09:39:43 GMT

>[�� ]
>>
>> may need to set $| to flush your
>>WRITEHANDLE after each command, depending on the application.
>>
>>�� ??? �� !
>>
>
>�� ! ��
>�� :)) �� :)
>�� :)

� �� , �� 100 �� . �� .
�� (�� ) �� :
#!/usr/bin/perl

use IO::File;
use File::Spec;

use strict;

sub print_arr {
my @t = @_;
foreach my $l (@t) {
print $l;
}
}

pipe(CHILD, PARENT);
CHILD->autoflush(1);
my @arr=();
my $delim = '---------------------------------------------------------------------------'."\n";
print "Single process work\n";
my $pid=fork;

if($pid==0) {
#Child work, children process read file, to arr, and send to parent
close CHILD;
print "Child process work: $$\n";
#��

perl pipes (iliya)

Wed, 27 Aug 2008 07:58:22 GMT

>[�� ]
>
> cesses, deadlock can occur unless you are very
>careful. In addition, note that Perl's pipes use IO buffering,
>so you
>
> may need to set $| to flush your
>WRITEHANDLE after each command, depending on the application.
>
>�� ??? �� !
>

�� ! �� :)) �� :)
�� :)

perl pipes (NuINu)

Tue, 26 Aug 2008 19:13:59 GMT

>[�� ]
>$pid=fork;
>
>if($pid==0)
>{
> close $CHILD;
>�� @arr
> foreach my $send_msg (@arr)
> { print PARENT $send_msg;
> }
>

pipe READHANDLE,WRITEHANDLE
Opens a pair of connected pipes like the corresponding system call. Note that if you set up a loop of piped pro-
cesses, deadlock can occur unless you are very careful. In addition, note that Perl's pipes use IO buffering, so you
may need to set $| to flush your WRITEHANDLE after each command, depending on the application.

�� ??? �� !