i have a three scripts .the first one to open a namespipe in windows and wait for some one to connect to it. The second script is to run a command in the same system which will write to the named pipe created in first script.The third script is to retrive the information written on the pipe.all these three should be done from same sytem. the following are the codes ..how do i join them after starting the first script how do i wait for the second to connect from the same system..how do i initaite second script once first script is waiting to connect....

 
script one
use strict;
use Win32::Pipe;

sub main() {
    my $pipename = "mynamedpipe";
    print $pipename."\n";
    my $pipe = new Win32::Pipe( $pipename);
    if (! $pipe) {
        die "Cannot create named pipe\n";
    }
    print "pipe created\n";
    $pipe->ResizeBuffer (10);
    print "waiting for the client to connect\n";
     $pipe->Connect();
    print "client connected\n";

script two

status3 = system ("cmd.exe /c $loc_deploy");
 print("DONE WITH INSTALLATION\n");
#loc deploy writes to named pipe

script three

use strict;
use Win32::Pipe;

my $data = "";
    my $b = 0;
    while (($b = $pipe->Read())) {
        chomp $b;
        $data .= $b;
        print "$b";
    }
    print "Message received: $data\n";
    
    $pipe->Disconnect();
    print "pipe disconnected\n";
    $pipe->Close();
    print "pipe closed\n";
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.